Sql = "SELECT TblQVend.PecQVend , TblQVend.QuantQVend, TblQVend.DataQVend, TblPec.DescPec, TblPec.GrupoEstoPec, TblPec.CodPec  FROM TblPec INNER JOIN TblQVend ON TblPec.CodPec = TblQVend.PecQVend WHERE (((CDate([DataQVend])) Between " & CDate(Format(TxtDat1.Text, "#")) & " AND " & CDate(Format(TxtDat2.Text, "#")) & ") AND ((TblPec.GrupoEstoPec) like " & TxtCod.Text & "))ORDER BY TblPec.DescPec"
A instrução cima não funciona no programa, somente no acces e no visdata, quando "rodo" o programa dá o seguinte erro: Too Few parameters, expected 1.
Alguem pode me ajudar???

Acho que está faltando aspas simples no inicio e termino das variaveis.

Ex.    "..... Between '" & CDate(Format(TxtDat1.Text, "#")) & "' AND ' ...."

Erico muito obrigado pela ajuda, funcionou legal, eu sempre usei esse comando mas agora é que deu pau, será que é por causa da atualizção do VB???

Mas já resolveu, Deus te ajude em seus empreendimentos.

jlima