Const Con_String = "Provider=Microsoft.Jet.Oledb.4.0; Jet Oledb:Database" & _
  "Password=MeinGeheimnis; Data Source=" & Path.Combine( _
  Application.StartupPath, "Artikel.mdb")
 
Const SqlBefehl = "UPDATE Artikeldaten SET Bezeichnung = ? where Artikelnummer" & _
  "= ?;"
 
 
' --- Vorbereiten
Using conn As New OleDbConnection(Con_String )
 
  Conn.Open()
 
  Dim Cmd As New OleDbCommand(SqlBefehl, Conn)
 
 
  'Parameter hinzufügen
  cmd.Parameters.AddWithValue("@Bez", "BezeichnungsDummy")
  cmd.Parameters.AddWithValue("@Arti", 1)
 
  'Start Transaction
  Dim trans As OledbTransaction = conn.BeginTransaction()
  cmd.Transaction = trans 
 
  'Verarbeitung
  Try
    'Schleife der zu verarbeitenden Sätze durchlaufen
    For ...
 
        cmd.Parameters("@Bez").Value="Testartikel"
        cmd.Parameters("@Arti").Value=10
 
      ' --- Ausführen
      cmd.ExecuteNonQuery()
    Next
      'Fertig Transaction beenden
      trans.commit()
  'Fehlerbehandlung
  Catch Ex as Exception
    'Änderungen zurücknehmen
    trans.Rollback   
    'Meldung ausgeben
    MessageBox.Show(ex.Message)
  End Try
 
  ' --- Schließen
  'Conn.Close() kann entfallen wegen Using
End Using