Fehler im VBA-Code, Formular-Kriterium wird nicht gelöscht oder nicht überschrieben

If IsNull(Me.Text10.Value) Then
    MsgBox "Bitte geben Sie ein Datum im Format TT.MM.JJJ an"  
    Exit Sub
End If

Private Sub Bild13_Click()

   On Error GoTo ERR_Bild13_Click

    Dim iCols As Integer
    Dim rs As DAO.Recordset
    Dim ws As Object
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim Startdatum As String
                
    DoCmd.Hourglass True
            
    Startdatum = Forms!Main!Text10
        
    Set db = CurrentDb
    Set qdf = db.QueryDefs("FDB_Eskalationsliste_Abwicklung_1Step")  
    qdf.Parameters("[Startdatum]") = Startdatum  

    'Neue Excel Datei, Arbeitsmappe und Worksheet erstellen  
    Set ws = CreateObject("Excel.Application")  
    ws.workbooks.Add

    Set rs = qdf.OpenRecordset(dbOpenDynaset)

    ' Nur was machen, wenn Daten vorhanden sind  
    If Not rs.EOF Then
        rs.MoveFirst
        ' Daten nach Excel kopieren  
        For iCols = 0 To rs.Fields.Count - 1
            ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
        Next
        ws.Range(ws.Cells(1, 1), _
            ws.Cells(1, rs.Fields.Count)).Font.Bold = True
        ws.Range("A2").CopyFromRecordset rs  
    End If
 
    DoCmd.Hourglass False
    
    ws.Visible = True
    
    Set ws = Nothing
    
    qdf.Close: Set qdf = Nothing
    rs.Close: Set rs = Nothing
    Set db = Nothing
    
EXIT_Bild13_Click:
    Exit Sub

ERR_Bild13_Click:
    MsgBox "Beim Daten-Export ist ein Fehler aufgetreten."  
Resume EXIT_Bild13_Click

End Sub