SELECT com três critérios - VBA

[Depoisteconto]

Pessoal, tudo bem? Espero que sim.

Seguinte...em uma das minha tabelas Access, tenho os campos Data e Contato entre outros, mas os que interessam nesse momento receberam esses nomes. Essa tabela, chamo de Ocorrencias.

Tenho um formulário feito no Excel (VBA) e uso conexão ADO.

Estou tentando utilizar o comando abaixo para servir de relatório, mas estou errando na sintaxe. Alguém poderia analisar e apontar onde está o erro?

sql = " SELECT * FROM Ocorrencias "
sql = sql & " WHERE Data = #" & Format$(Userform1.DtParametroI.Text, "MM/dd/yyyy") & "# AND Data <> #" & Format$(Userform1.DtParametroII.Text, "MM/dd/yyyy") & "#"
sql = sql & " WHERE Contato = '" & Userform1.TpContato.Text & "'"
sql = sql & " ORDER BY Data"

Obs: O campo Data está configurado para Data/Hora

Legenda:

Userform1.DtParametroI.Text = Informo a data que quero ver as ocorrências

Userform1.DtParametroII.Text = Geralmente informo a data do dia (hoje)

Userform1.TpContato.Text = Informo o tipo de contato (Direto, Indireto, bla bla...)

Obrigado!

Edited January 30, 2012 by Depoisteconto

[MrMALJ]

Fera o que isso está retornando?

Sugiro que você crie uma consulta com o que está querendo e veja e quando funcionar copie o codigo SQL para o vba.