porque nao esta eecutando o if

Run-Time error : '450'

wrong number of arguments or invalid property assignment

>
Private Sub Form_Load()

con = Conexao.Execute(" Select COUNT(*) from AGE where DATAGE = 'Now()' ")

 

 If con < 1 Then

 Agenda.Show

 End If

End Sub

alguem poderia me ajudar , pq nao ta dando certo ? a conexao ao BD esta correta ! O bd é MYSQL