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
Dim Conn As OleDbConnection
Conn = New OleDbConnection(Con_String & db_name)
Conn.Open()
 
Dim Cmd As New OleDbCommand(SqlBefehl, Conn)
Cmd.Connection = Conn
 
Dim Produktname As String = "Testbezeichnung"
Dim Param As New OleDbParameter
Param.ParameterName = "@Bez"
Param.Value = Produktname
Cmd.Parameters.Add(Param)
 
Dim Nummer As String = "10"
Dim ParamNr As New OleDbParameter
ParamNr.ParameterName = "@Arti"
ParamNr.Value = Nummer
Cmd.Parameters.Add(ParamNr)
 
Cmd.CommandTimeout = 3 ' maximal 3 Sekunden warten
 
' --- Ausführen
Cmd.ExecuteNonQuery()
 
' --- Schließen
Conn.Close()