请教大家关于VBA的问题？

Question

我现在有一段程序，总是调试不成功，有哪位高手能帮小弟看看？谢谢
程序如下：（实现功能是将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

Answer 1

     strSQL = strSQL & "insert into liu([code],[name]) values( """ & Worksheets("编码目录").Cells(i + 3, 1) & """,""" & Worksheets("编码目录").Cells(i + 3, 3) & """)"