dbcon.execute "Update ....."
 
checkAgain:
              rs.Open ....'Erwarteter Wert abfragen, falls vorhanden, weiter im 
              ' Code
              If rs.EOF Then rs.Close: GoTo checkAgain

dim bDatenVorhanden as Boolean
 
dbcon.execute "Update ....."
 
While Not bDatenVorhanden
rs.open ...'Erwarteter Wert abfragen, falls vorhanden, weiter im Code
bDatenVorhanden = Not (rs.eof)
rs.close
Wend