Private Sub cmd_einlesen_Click()
Dim strDB As String
Dim strCon As String
Dim SQL As String
Dim objCon As Object
Dim objRst As Object
strDB = ThisWorkbook.Path & "\Test_Datenbank.accdb"
Set objCon = CreateObject("ADODB.CONNECTION")
Set objRst = CreateObject("ADODB.Recordset")
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB & _
";Persist Security Info=False;"
objCon.Open strCon
SQL = "Insert Into tbl_Namen(Vorname, Nachname) Values ('" & Tabelle1.Range("H4").Value & "','" & Tabelle1.Range("I4").Value & "');"
objCon.Execute SQL
objRst.Close: objCon.Close
Set objRst = Nothing: Set objCon = Nothing
End Sub