各位大大好!
最近想在用Excel來更新資料庫的資料
https://www.youtube.com/watch?v=xC8rDlji7ok
參考上方連結的影片

但是自己在依樣畫葫蘆時卻遇到困難，會出現

執行階段錯誤'-2147217900(80040e14)':接近':'之處的語法不正確

Private Sub 更新資料_Click()


    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    Dim CC001 As String
    Dim CC002 As String
    Dim CC003 As String
    Dim CC004 As String
    Dim CC005 As Double
    
          con.Open "Provider=SQLOLEDB;" & _
          "Data Source =xxxxxxxxx;" & _
          "Initial Catalog=xxxx;" & _
          "User ID=xxx ; Password=xxx"
         
            CC001 = TextBox1.Text
            CC002 = TextBox2.Text
            CC003 = TextBox3.Text
            CC004 = TextBox4.Text
            CC005 = CDbl(TextBox5.Text)
        
            Sql = "update CARCC set CC001='" & CC001 & "',CC002='" & CC002 & "'," & _
            "CC003=" & CC003 & ",CC004=" & CC004 &    ",CC005=" & CC005 & " " & _
            "WHERE CC001=" & CC001 & "  "

            Dim rowsAffected As Integer
            con.Execute Sql, rowsAffected
            
            If rowsAffected = 1 Then
                MsgBox "success"
            Else
                MsgBox "failed"
            End If
            con.Close
            Set con = Nothing
        
End Sub

其中con.Execute Sql, rowsAffected在偵錯時會出現問題
(上傳的Data Source是遮擋的部分喔)
還望各位大大幫忙