Der Betrieb ist nicht erlaubt, wenn das Objekt geschlossen ist VBA

Question

Mein Code schlägt mit dem obigen Fehler fehl, wenn er die 4. Zeile des folgenden Codes erreicht. Ich habe das gleiche Format früher in meinem Programm verwendet und es funktioniert gut. Wenn mehr Code benötigt wird, um den Fehler zu beheben, würde ich gerne posten. Vielen Dank.

With rsTIP19 
.ActiveConnection = cnTIP 
.Open "exec usp_Service_Data_Query_QA" 
ThisWorkbook.Sheets("Service_Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CopyFromRecordset rsTIP19 
.Close 
End With 

Answer 1

Was ist der Zweck der exec? Sie sollten für .BOF oder .EOF testen.

With rsTIP19 

    .ActiveConnection = cnTIP 
    .Open "usp_Service_Data_Query_QA" 
    If Not .BOF or .EOF then 
     ThisWorkbook.Sheets("Service_Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).CopyFromRecordset rsTIP19 
    End If 

    .Close 

End With