aus WB einen Datensatz an Access-DB anfügen

Sub SQL_Datensatz_anfügen()
'Verweis: Microsoft ActiveX Data Objects 2.x Library
Dim strConnectString        As String
Dim objConnection           As Object
Dim strDbPath               As String
Dim strTblName              As String
Dim strSQL                  As String
strDbPath = ThisWorkbook.Path & "\nordwind.accdb"
strTblName = "Customers"
strCustomerID = "MAIER"
strCompanyName = "Maier KG"
strContactName = "Hans-Josef Maier"
strConnectString = "Provider = Microsoft.ACE.OLEDB.12.0; data source=" & strDbPath & ";"
Set objConnection = New ADODB.Connection
objConnection.Open strConnectString
strSQL = "INSERT INTO customers (customerID,companyName, contactName) " & _
"VALUES ('" & strCustomerID & "','" & strCompanyName & "','" & strContactName & "')"
objConnection.Execute strSQL
Set objConnection = Nothing
End Sub