if the error as below:
Option Compare Database
Private Sub Command77_Click()
'search button
Call Search
End Sub
Sub Search()
Dim strcriteria, task As String
Me.Refresh
If IsNull(Me.OrderDataFrom) Or IsNull(Me.OrderDataTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range...