总是提示 INSERT INTO 语法错误

tubu2018

各位老师好！
小弟用insert into 向ACCESS表中插入一条记录总报错如图，请各位老师指点

LMY123

1. Sub updateaddRecords() '更新数据库已经存在记录，插入不存在记录
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim myPath As String
   
5.     Dim mytable As String
   
6.     Dim strTemp As String
   
7.     Dim SQL As String
   
8.     Dim strMsg As String
   
9.     Dim arrFields As Variant
   
10.     myPath = ThisWorkbook.Path & "\员工管理.accdb"
    
11.     mytable = "员工档案"
    
12.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
    
13.         SQL = " SELECT B.* FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[Sheet1 (7)$A2:K] B " _
    
14.         & "LEFT JOIN " & mytable & " A ON A.员工编号=B.员工编号 WHERE A.员工编号 IS NULL"
    
15.         '''//A这数据库表，B为工作薄的表
    
16.         Set rst = New ADODB.Recordset
    
17.         rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
18.         If rst.RecordCount > 0 Then '如果工作表中含有数据库不存在记录
    
19.             SQL = "INSERT INTO " & mytable & SQL ''///'插入数据库不存在记录
    
20.             cnn.Execute SQL
    
21.         End If
    
22.     rst.Close
    
23.     cnn.Close
    
24.     Set rst = Nothing
    
25.     Set cnn = Nothing
    
26.     Exit Sub
    
27. End Sub

复制代码