Dim Db As Database
Dim QUERY As QueryDef
Dim SQL As String
 
<font color=green>' Datenbank öffnen</font>
Set Db = OpenDatabase(App.Path & "DATEN.MDB", False, False)
 
<font color=green>' QUERY-Abfrage und Aktion definieren</font>
SQL = "UPDATE Kunden SET Vorname = '" & txtVorname.Text & "'" WHERE " & _
  "KundenID = " & lblKundenID.Caption
Set QUERY = Db.CreateQueryDef("", SQL)
QUERY.Execute
QUERY.Close
Set QUERY = Nothing
 
<font color=green>' Datenbank schliessen</font>
Db.Close
Set Db = Nothing</code>
Ich bin davon ausgegangen, dass es sich bei KundenID um ein Long-Feld _
  handelt. Sollte es sich um ein Datenbankfeld vom Type Text handeln, müssen _
  noch die Hochkommas eingefügt werden:
<pre><code>SQL = "UPDATE Kunden SET Vorname = '" & txtVorname.Text & "'" WHERE _
" & _
  "KundenID = '" & lblKundenID.Caption & "'"