If IsDate(tdb(0).Text) = False Then
        MsgBox "DS"
        Exit Sub
    End If
    If IsDate(tdb(1).Text) = False Then
        MsgBox "DS"
        Exit Sub
    End If
 
    d = tdb(0).Text
    s = "{WK_AUF_TMP.DATUM} >= Date(" & Format(d, "YYYY,MM,DD") & ")"
    d = tdb(1).Text
    s = s & " and {WK_AUF_TMP.DATUM} <= Date(" & Format(d, "YYYY,MM,DD") & ")"
 
    CrystalReport1.Application.OpenReport "E:\IDIMS_WK\backplan.rpt"
    CrystalReport1.RecordSelectionFormula = s
 
 
    frmreport.Show vbModal, Me