rs.open "Select tblpessoas.* From tblpessoas Where tblpessoas.nome Like '" & txtNome & "'"

 

O formato da data na base é DD/MM/YYYY.

 

Onde está o erro?

Tente assim, primeiro coloque o DataFormat do text, para o mesmo da base de dados:

rs.open "Select tblpessoas.* From tblpessoas Where tblpessoas.data=" & txtData

 

Ou então com uma variavel:

 

Dim dDATA As Date

dDATA = Format$(txtData, "dd/mm/yyyy")

rs.open "Select tblpessoas.* From tblpessoas Where tblpessoas.data=" & dDATA

Lembrando que ao usar apenas uma data, com uma variavel, voce não precisa transformar ela no formato americano, e nem usar o caracter "#".

 

Agora isto no Access, mas como é SQL, deve funcionar:

 

vlu//