Dim strSQL As String
Dim RS As Recordset
strSQL =  "SELECT Max(Data5.Feld1) AS MyMax FROM Data5"
 
'   Falls Du DAO benutzt:
Set RS = CurrentDB.OpenRecordset(strSQL, dbOpenSnapShot, dbSQLPassThrough, _
  dbReadOnly)
 
MaxAnzMess = RS.Fields.Item("MyMax").Value
 
Set RS = Nothing