If Not rssql.EOF Then
 
            rs.MoveFirst                       'Gehe zum erstem Datensatz
            rssql.MoveFirst
            MsgBox "rs und rssql auf ersten Datensatz"
            MsgBox "rs = " & rs!Title
            MsgBox "rssql = " & rssql!Title
 
            While Not rs.EOF And rssql.EOF '<---- Kein "Eintritt"
                MsgBox "rs and rssql noch nicht EOF"

Keine Ahnung aber grosses Mundwerk.