'SQL-String erzeugen
        Dim sql_string = "UPDATE mitarbeiter SET nachname= 'Fritz'  WHERE" & _
          "ID= 1"
        'SQL-Befehlsobjekt erzeugen
        Dim cmd As New OdbcCommand(sql_string, connection)
        'Verbindung herstellen und SQL-Befehl ausführen
 
        MsgBox(cmd.ExecuteNonQuery() & " Einträge waren betroffen.")
 
 
        'Daten neu einlesen...
        maAdapter.Fill(maTable)

Dim sql_string = "UPDATE mitarbeiter SET Nachname= " & "textbox1.text" & "" & _
   "WHERE MA_ID= " & "textbox2.text"