Const Con_String = "Provider=Microsoft.Jet.Oledb.4.0; Jet" & "Oledb:Database" & _
  "Password=MeinGeheimnis; Data Source="
 
Const SqlBefehl = "UPDATE Artikeldaten SET Bezeichnung = @Bez where" & _
  "Artikelnummer = @Arti;"
 
db_name = Application.StartupPath & "\Artikel.mdb"
 
' --- Vorbereiten
Using conn As New OleDbConnection(Con_String & db_name)
 
  'Verbindung herstellen
  Conn.Open()
 
  'SQL-Command vorbereiten und verbinden
  Dim Cmd As New OleDbCommand(SqlBefehl, Conn)
  Cmd.Connection = Conn
 
  'Variablen für die Parameter anlegen 
  Dim Produktname As String 
  Dim Nummer As String
 
  'Parameter hinzufügen
  cmd.Parameters.AddWithValue("@Bez", Produktname)
  cmd.Parameters.AddWithValue("@Arti", Nummer)
 
  'TimeOut festlegen
  Cmd.CommandTimeout = 3 ' maximal 3 Sekunden warten
 
  'Start Transaction
  Dim trans As OledbTransaction = conn.BeginTransaction()
  cmd.Transaction = trans 
 
  'Verarbeitung
  Try
    'Schleife der zu verarbeitenden Sätze durchlaufen
    For ...
      ' Parameter/Daten versorgen
      Nummer = "10"
      Produktname = "Testartikel"  
 
      ' --- Ausführen
      Cmd.ExecuteNonQuery()
    Next
      'Fertig Transaction beenden
      conn.commit()
  'Fehlerbehandlung
  Catch Ex as Exception
    'Änderungen zurücknehmen
    conn.Rollback   
    'Meldung ausgeben
    MessageBox.Show(ex.Message)
  End Try
 
  ' --- Schließen
  Conn.Close()
End Using