Ola galera eu estou usando o seguinte código abaixo e esta me dando um erro na linha em destaque eu não consigo fazer a consulta no banco de dados com o campo no formato de Date/Time o que pode ser? da o seguinte erro "Tipo de dados imcompatível na expressão de critério"

Dim BANCO As Database 'Define o banco de dados
Dim Thoras As Recordset 'Define a tabela horas
Set BANCO = OpenDatabase(App.Path & "ancohoras.mdb") 'Abre o banco de dados
Set Thoras = BANCO.OpenRecordset("Select * From Horas") 'Abre a tabela de horas
Thoras.FindMin "Nome = '" & Lblnome & "' and data = '" & TxtData.Text & "'" 'Procura pelo nome e data
Desde ja agradeço

tenta assim:

 

Thoras.FindMin "Nome = '" & Lblnome & "' and data = #" & format(TxtData.Text, "mm/dd/yyyy") & "#" 'Procura

As aspas simples. Campo de data/hora não são string, troque-as por "#" assim:

Thoras.FindMin "Nome = '" & Lblnome & "' and data = #" & TxtData.Text & "#" 'Procura

Obrigado aos dois problema resolvido eu tava dando mole esta tirando a aspas dupla em vez do aspas simples.

brigaduuuuuuuuuuuuuu