Dim Db As Database
Dim QUERY As QueryDef
Dim SQL As String
 
<font color=green>' Datenbank öffnen</font>
Set Db = OpenDatabase("KUNDEN.MDB", False, False)
 
<font color=green>' QUERY-Abfrage und Aktion definieren</font>
SQL = "DELETE * FROM Tabelle WHERE " & _
  "VorgNr = '" & dbVorgNr & "'"
 
Set QUERY = Db.CreateQueryDef("", SQL)
QUERY.Execute
QUERY.Close
Set QUERY = Nothing
 
<font color=green>' Datenbank schliessen</font>
Db.Close
Set Db = Nothing