Const Con_String = "Provider=Microsoft.Jet.Oledb.4.0; Jet" & _
          "Oledb:Database Password=MeinGeheimnis; Data Source="
 
        Const SqlBefehl = "UPDATE Artikeldaten SET Bezeichnung = 'Käse' where" & _
          "Artikelnummer = '10';"
 
        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.CommandTimeout = 3 ' maximal 3 Sekunden warten
 
        ' --- Ausführen
        Cmd.ExecuteNonQuery()
 
        ' --- Schließen
        Conn.Close()