'SQL-String erzeugen
        Dim sql_string = "UPDATE mitarbeiter SET name= " & "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)