VBA Funktion geht nur einmal - Warum?

Private Sub Daten_copy_Click()
On Error GoTo Err_Daten_copy_Click

    
    Dim stLinkCriteria As String
    Dim data As New DataObject
    Dim rn, compname, LieferDate, serialno, scopyString As String
    Dim rs As DAO.Recordset
    
    Set rs = Forms!Hardwareeingang.RecordsetClone
    If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        scopyString = scopyString & rs!Lieferdatum & ", " & rs!RFQNummer & ", " & rs!Rechnername & ", S/N: " & rs!Seriennummer & vbCrLf  
        rs.MoveNext
    Loop
    rs.Close
    data.settext scopyString
    data.putinclipboard
    End If
    

Exit_Daten_copy_Click:
    Exit Sub

Err_Daten_copy_Click:
    MsgBox Err.Description
    Resume Exit_Daten_copy_Click
End Sub