Visual Basic. Per Textfeld in Access-Tabelle schreiben

'Unser Verbindungsobjekt über ADODB  
Dim cn As New ADODB.Connection
Dim conStr As String

'Der sog. ConnectionString, legt Treiber und den Pfad für Datenbank fest  
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Telefonbuch.mdb"  

'Verbindung wird geöffnet  
cn.Open conStr

'Das Command Objekt führt SQL Befehle auf der Datenbank aus   
'und gibt, bei Abfragen, Ergebnismengen zurück  
Dim cmd As New ADODB.Command
cmd.ActiveConnection = cn

'Das ist unser SQL Befehl. INSERT INTO ist der 0815 Befehl zum Einfügen von Daten  
'Die Syntax sieht so aus: INSERT INTO {Tabelle} ({Liste der Datenfelder, Kommagetrennt}) VALUES (Liste der Werte);  
'Denk dran, dass bestimmte Datentypen in Values mit ' (Anführungszeichen) geschrieben werden müssen. Strings z.Bsp.  
cmd.CommandText = "INSERT INTO Werke(Firma) VALUES('" & txtFirma.Text &  "');"  

'Befehl wird ausgeführt, hiernach sollten die Daten in der Datenbank sein.  
cmd.Execute

'Verbindung schließen  
cn.Close