Fechamento de Venda do Dia

Olá bom dia pessual....

To com um probleminha no vb6... to tentando fazer uma tela para fechar o caixa apos o expediente, na tabela venda coloquei um campo com o nome "totaldia", e na tela venda estou usando o seguinte codigo para somar a venda :

>
Set con = New ADODB.Connection

con.Open (cnSQL)

If RS.EOF <> True And RS.BOF <> True Then

With RS

.Fields("totaldia") = RS.Fields("totaldia") + Val(Me.txtvenda.Text)

 .Update

 .Close

End With

Set RS = Nothing

Set con = Nothing

Só que ta dando erro "Tipo de dados incompativel na expressão de críterio" Run time erro-'2147217913(80040e07)':

a linha que o erro aponta eh:

RS.Open "Select * from venda where datavenda= '" & lbldate & "'", con, adOpenKeyset, adLockOptimistic

Como corrigir esse erro?

ops: estou usando o vb6 e banco de dados acess 2003

desde já agradeço

Forte Abraço!!!!