Okay, looks like a common mistake you are making...
What you want to do it to test the date and just the date. You do not want to test the string variable because it will always return false as you are doing something like...
-
strSQL = "Test " & vbNull & "Line"
-
and thus the string is not empty (IsEmpty) either as it contains a string value...
Now, from the looks of it you are actually wanting to test the results returned from executing your query to see if you have any records, which you can do by testing the recordcount property, the bof, and eof properties...
-
if Rs.RecordCount <> 0 And Rs.EOF = False And Rs.BOF = False Then
-
'have records
-
Else
-
'No Records
-
End If
-
Good Luck