Das ist nicht so einfach, da das Ganze ein bisschen komplexer aufgebaut ist...
Aber das Aufbauen der Connection, sowie das Auslesen der Daten funktiontiert.
An dieser Stelle hängt es nun (zur Info strFields und strValues sind String() ):
Dim strInsert As String = "INSERT INTO " & getDatenbankname() & ".tbl" & Tabellenname & " (" & strFields & ") VALUES (" & strValues & ");"
Debug.Print(strInsert)
und herauskommt:
INSERT INTO Projekt.tblKunde ('Name', 'Vorname', 'Telefon', 'BLZ', 'Bank') VALUES ('Maier', 'Peter', '0801/1234', '12345608', 'Test Bank eG');
und dazu die schöne Fehlermeldung:
Ungültiger Objektname 'Projekt.tblKunde'