vb 数据导入问题.SOS

Private Sub Command3_Click()

Dim cn2  As New ADODB.Connection
          Dim rsTemp  As New ADODB.Recordset
          Dim rs2  As New ADODB.Recordset
          cn2.Open "Provider=SQLOLEDB.1;User ID=sa;pwd=;Initial Catalog=test;Data Source= "
          'Record1是后台数据库的表
          rs2.Open "aaaaaa", cn2, adOpenDynamic, adLockBatchOptimistic, adCmdTable
    
          '循环插入数据
          rs.MoveFirst
          While Not rs.EOF
                  rsTemp.Open "select   top   1   *   from   aaaaaa   where   Rtrim(bh)+Rtrim(rq)='" + RTrim(rs("bh")) + RTrim(rs("rq")) + "'", cn, adOpenDynamic, adLockReadOnly
                  '判断记录没有重复则插入表中
                  If rsTemp.EOF Then
                  rs2.AddNew
                          For i = 0 To rs2.Fields.Count - 1
                                  rs2(i) = rs(i)
                          Next
                  End If
                  rs.MoveNext
          Wend
          rs2.UpdateBatch

End Sub

插入总是提示错误,帮我看看这个代码哪里错了,冤数据 是ACCESS

全部

后***

回答