displaying error

[mheiy]

i have this my code

Private Sub MDIForm_Load()
sad = "Select * from tbapplicant where EndDateREserved like '" & lblDate & "%'"
 
tbApplicant.Open sad, cn, adOpenDynamic, adLockOptimistic
With tbApplicant
   ' .Find "EndDateREserved = '" & lblDate & "'"
    If .EOF = False And .BOF = False Then
        Label5 = .Fields(3)
    End If
End With
 
end sub

when i comment the .Find the .fields(3) will display to the label but if i dont comment the .Find no records will display what will i do...

thanks