'Die Informationen zum Verbindung in einer Variablen speichern
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source = datenbank.mdb"
 
'Eine neue Verbindung mit dem ConnectionString erstellen
Dim Connection As OleDbConnection = New OleDbConnection(ConnectionString)
 
'Die SQL-Variable erstellen
Dim SQL As String 
 
SQL = "UPDATE tb_id_nrn SET typ_erz_nr = '0123456789'  WHERE id = '" & _
  txtbID.Text & "'"
 
[Anmerkung]: txtbID.Text ist die id in der leeren zeile!
 
'Das Kommand-Objekt erzeugen
 Dim Command As OleDbCommand = New OleDbCommand(SQL, Connection)
 
'Öffnen der Verbindung
Connection.Open()
 
Command.ExecuteReader()
 
'Die Verbindung schließen
Connection.Close()