Fehlermeldung bei RecordSet

Private Sub cmdReport_Click()
Dim AbfrageAuto As Integer

'Hier frage ich ab ob ein bestimmtes File nicht geöffnet ist - FUNKTIONIERT!  
Const sPath As String = "M:\Central\EU-Operations\Administration\Finance_Controlling_Invoicing\SA Attachments\"  
Const sFile As String = "Sammlung_SA.xls"  
    
If DateiIstFrei(sPath & sFile) Then
'Wenn das File frei ist DANN  

'Wird die Frage gestellt ob Ja oder Nein  
AbfrageAuto = MsgBox("Print all?", vbYesNo)  

'JA  
If AbfrageAuto = 6 Then


'Hier muss noch etwas hin aber da bin ich noch am basten  


Dim rs As ADODB.Recordset
Dim AbfrageRecord As Integer
Set rs = New ADODB.Recordset

rs.Open "qrySAvoll_nnFaktSum_Auto", CurrentProject.Connection, adOpenKeyset, adLockOptimistic  
rs.MoveFirst
Do Until rs.EOF

'Jetzt soll vom Recordset ein Wert in eine andere Tabelle geschrieben werden, dies mache ich durch ein Formular im Hintergrund  
DoCmd.OpenForm "frmTempAuto", acNormal, , , acFormAdd, acIcon  

    Forms!frmTempAuto!Study = rs!Kundenauftrag

DoCmd.Close acForm, "frmTempAuto"  
'Damit ist das Schreiben der Daten beendet  

'Jetzt soll eine Frage gestellt werden ob der nächste Record im Recordset geschrieben werden soll oder nicht, wenn ja dann soll es zum LOOP kommen  
AbrageRecord = MsgBox("Next study?", vbOKCancel)  
If AbfrageRecord = 1 Then

rs.MoveNext
Loop

'Ansonsten wird geschlossen  
Else

rs.Close
End Sub
End If

rs.Close
End Sub
'Wenn alle durch sind DONE  

'Sollte jemand oben bei der Frage "Print all" nein sagen  
Else
DoCmd.OpenReport "rptSAvoll_nnFakt_neu", acViewPreview  

'SOllte das File nicht frei sein  
Else
MsgBox "The file 'Sammlung_SA.xls' is already opened. Please close it first!"  

End If

End Sub