用EXCEL做前台对SQL数据库进行添加和修改问题

龙儿k

首先感谢赵刚老师的《根据excel表数据更新有重复记录的数据库并插入数据库中不存在的记录》这篇帖子由于数据库是ACCESS的，并尝试修改成SQL数据库但一直提示以下问题
Sub CommandButton2_Click()
Dim cnn As Object, rs As Object, SQL$
    Dim a, arr, i&, j&, l&, s$, k, t, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a3].CurrentRegion '工作表数据区域写入数组

   
'    用字典记录每个姓名出现在工作表中的行号
    For i = 2 To UBound(arr)
        s = arr(i, 3) & Chr(9) & arr(i, 4)
        If Not d.Exists(s) Then
            d(s) = i
        Else
            d(s) = d(s) & "," & i
        End If
    Next
    k = d.keys '不重复的姓名信息
    t = d.items '不重复的姓名出现的行号
   
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=sqloledb;Server=127.0.0.1;Database=UserData;Uid=admin;Pwd=Max880302"
   
'    更新数据库中存在的数据
    For i = 0 To d.Count - 1
        a = Split(k(i), Chr(9)) '分离
        SQL = "select * from dbo.data where name='" & a(0) & "' and  ID='" & a(1) & "'" '查询该人员在数据除中记录
        Set rs = CreateObject("adodb.Recordset")
        rs.Open SQL, cnn, 1, 3
        n = rs.RecordCount '记录数
        If n > 0 Then '如果有记录
            a = Split(t(i), ",") '分离该人员在工作表中出现的行号
            For j = 0 To UBound(a) '逐个行号
                If j + 1 > n Then Exit For '如果工作表中该人员记录次序大于数据库中的记录数则退出循环
                rs.Move j, 1 '把指针移动到该人员出现次序的位置
                For l = 5 To 34 '逐列数据更新到数据库
                    rs.Fields(l - 1) = arr(a(j), l)
                Next l
                rs.Update '更新
            Next j
        End If
    Next i
   
'    下面是插入数据库中不存在的记录
    SQL = "select a.* from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a3].CurrentRegion.Address(0, 0) _
        & "] a left join dbo.data b on a.ID=b.ID and a.name=b.name  where b.ID is null"  ‘这段报错。提示无效！
    Set rs = CreateObject("adodb.recordset")
    rs.Open SQL, cnn, 1, 3
    If rs.RecordCount Then
        SQL = "insert into dbo.data " & SQL
        cnn.Execute SQL
        MsgBox rs.RecordCount & "行数据已经添加到数据库！", vbInformation
    Else
         MsgBox "工作表的数据数据库中已经存在。", vbInformation
    End If
   
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    End Sub


其提示是这句话无效，小弟我刚学没多久，请各位大侠帮忙~