Private Sub Command4_Click()
strSQL = "Select * from qrySearchList Where 1=1 "
IF txtCustomer.Value <> "" Then
strSQL = strSQL &" AND Customer Like '*" & txtCustomer.Value & "*' "
End IF
strSQL = strSQL &" Order by E1 "
List0.RowSource = strSQL
End Sub