[Resolvido]Consulta Sql

Dim filtro, filtroa
filtro = Format(Forms!cconsulta!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Forms!cconsulta!DataFinal, "mm/dd/yyyy")

strSQLDi = "SELECT * FROM tblCCFunc where [DtMovimento] Between #" & filtro & "#;" & _
"And [tpentradas] = 'entradas'" & _
"And [codlancam] = '1DI'"

to tentando fazer com que essa consulta, mas ta dando errado

os campos tpentradas e codlancam sao do tipo texto, o erro da acontecendo na parte do "and" pra frente

ja consegui resolver obrigado a todos