请教大家关于VBA的问题？
我现在有一段程序，总是调试不成功，有哪位高手能帮小弟看看？谢谢程序如下：（实现功能是将excel数据保存到sql数据库中）
Sub test()
Dim i As Integer, sht As Worksheet
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim strSQL As String
Dim Code As String
Dim Name As String
strCn = "Provider=sqloledb;Server=localhost;Database=lianxi;Uid=sa;Pwd=sa;"
strSQL = ""
For i = 1 To 100
If Worksheets("编码目录").Cells(i + 3, 1) <> "" Then
strSQL = strSQL & "insert into liu([code],[name]) values( " & Worksheets("编码目录").Cells(i + 3, 1) & Worksheets("编码目录").Cells(i + 3, 3) & ")"
End If
Next
cn.Execute strSQL
cn.Close
End Sub --------------------编程问答--------------------
strSQL = strSQL & "insert into liu([code],[name]) values( """ & Worksheets("编码目录").Cells(i + 3, 1) & """,""" & Worksheets("编码目录").Cells(i + 3, 3) & """)" --------------------编程问答-------------------- 有点难度哦 --------------------编程问答-------------------- 支持搂主，收藏
补充：VB , VBA
