and i use this code:
Private Sub CmdSearch_Click()
If cbofrom.ListIndex = "" Or cboTo.ListIndex = "" Then
MsgBox "Plese select a valid date in it", vbCritical, "Order"
Else
If IsDate(cbofrom.ListCount) Then
MsgBox "Please enter a Valid date in it", vbCritical, "Order"
Exit Sub
Else
MsgBox...