access数据插入时错误

Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source=E:\项目\基本数据库.mdb"
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim strInsert As String = "INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 基本数据表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) from 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期)<0"
Dim inst As OleDbCommand = New OleDbCommand(strInsert, myConn)
inst.ExecuteNonQuery()

myConn.Close()


错误提示：“System.Data.OleDb.OleDbException”类型的异常在 System.Data.dll 中发生，但未在用户代码中进行处理

其他信息: 查询值的数目与目标字段中的数目不同。

请问应该怎样修改啊？

---

其实这个问题我已经解决了，是这样解决的：Dim strInsert As String = "INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 基本数据表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) from 基本数据表1 WHERE 要求发货日期>今天日期