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 客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期 FROM 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期) <0"
------解决方案--------------------
Dim strInsert As String = "INSERT INTO 已经发货表1(客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) SELECT 客户名,仪器名,机箱,功能,数量,下单日期,已经发货日期) FROM 基本数据表1 WHERE DATEDIFF('d',基本数据表1.要求发货日期,基本数据表1.今天日期) <0"