EOF fejl når jeg laver et udtræk fra min db

strSQL = "select * from call_log where date = '" & date & "'"
Date_Check = Conn.Execute(strSQL)

If Date_Check.EOF = True Then
et eller andet...
End If

Laver fejl i if line

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'