Dim DB As Database
Dim QUERY As QueryDef
Dim SQL As String
 
Set DB = OpenDatabase(App.Path & "\Datenbank.mdb", False, False)    
    SQL = "UPDATE TAB1 SET Datenwert = 0 WHERE Datenwert <> 0"    
    Set QUERY = DB.CreateQueryDef("", SQL)
    QUERY.Execute
    QUERY.Close
    Set QUERY = Nothing
DB.Close
Set DB = Nothing

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!