'....
    Dim rssql As Recordset
    Dim rs As Recordset
 
            Set Db = CurrentDb      'Aktuelle DB
 
        SQL = "SELECT *.......;"
 
        Set rssql = Db.OpenRecordset(SQL)
        rssql.MoveFirst '<- FEHLER!!!!!!!!!!!!!!!!
 
        Set rs = Db.OpenRecordset("Daten")
        nCount = rs.RecordCount            'Anzahl der Datensätze ermitteln = 
        ' nCount
 
        rs.MoveFirst                       'Gehe zum erstem Datensatz
'......

Keine Ahnung aber grosses Mundwerk.