Dim Db As Database
Dim QUERY As QueryDef
Dim SQL As String
 
<font color=green>' Datenbank öffnen</font>
Set Db = OpenDatabase("DATENBANK.MDB", False, False)
 
<font color=green>' QUERY-Abfrage und Aktion definieren</font>
SQL = "UPDATE Liste SET Name = '' WHERE " & Name LIKE = '*hugo*'"
Set QUERY = Db.CreateQueryDef("", SQL)
QUERY.Execute
QUERY.Close
Set QUERY = Nothing
 
<font color=green>' Datenbank schliessen</font>
Db.Close
Set Db = Nothing