VB+SQL 从Excel里面导入数据进入已有的表中 实现不了
就是添加不进数据库！！ 求大神 代码如下

VB code

Private Sub Command1_Click()'工程->引用->Microsoft ActiveX Data Objects 2.X LibraryOn Error Resume NextDim i%, n%, l%Dim Conn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetDim Cnt As IntegerDim xConn As New ADODB.ConnectionDim xRs As New ADODB.RecordsetDim xCnt As IntegerConn.CursorLocation = adUseClientConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\lzjc_Data.mdb"If Rs.State <> adStateClosed Then Rs.CloseRs.Open "select * from kucun", Conn, adOpenKeyset, adLockOptimisticxConn.CursorLocation = adUseClient'连接Excel的字符串，后面的“HDR=yes”需要注意，它的意思是把Excel表第一行作为字段名，第二行开始方是有效数据。HDR=no则反之，从第一行开始就看做有效数据。xConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\库存.xls;Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"If xRs.State <> adStateClosed Then xRs.Close'像打开数据库一样，使用SQL语言，打开名称为“sheet1”的工作表xRs.Open "select * from [sheet1$]", xConn, adOpenStatic, adLockReadOnlyxCnt = xRs.RecordCountSet Form4.DataGrid1.DataSource = xRsIf xCnt = 0 Then '因为HDR=yes，必有1行表头数据    MsgBox "请确认“库存.xls”的“sheet1”工作簿内容不为空！否则无法导入任何数据！"    Exit SubEnd IfProgressBar1.Max = xCntProgressBar1.Min = 0ProgressBar1.Value = 0Label1.Caption = "0 / " & xCntFor i = 0 To xCnt - 1DoEvents'下面的SQL插入语句自行更改，注意数据格式，如果是xRs("字段名1")的值是文本，记得在两边加单引号。Conn.Execute "insert into kucun(类别,名称,数量,进价,报警,拼码) values(" & xRs("类别") & "," & xRs("名称") & "," & xRs(数量) & " ," & xRs(进价) & "," & xRs(报警) & "," & xRs("拼码") & "  )"xRs.MoveNextLabel1.Caption = i + 1 & " / " & xCntProgressBar1.Value = i + 1NextEnd Sub 

[解决办法]
你单步调试过吗？
可能是重复记录不允许插入
[解决办法]
Conn.Execute "insert into kucun(类别,名称,数量,进价,报警,拼码) values('" & xRs("类别") & "','" & xRs("名称") & "'," & xRs(数量) & " ," & xRs(进价) & "," & xRs(报警) & ",'" & xRs("拼码") & "' )"
------
如果是字符类型，要加单引号括起来。试下上面的代码