se na tabela está sem as barras, voce tera de crirar uma função para inserir as barrar

exemplo:

 

Private function coloca_barra(data as string)

dim dt as string

dt=left(data,2)+"/"+mid(data,3,2)

if lem(data=8) then

     DT=DT+RIGHT(DATA,4)

ELSE

     DT=DT+RIGHT(DATA,2)

END IF

COLOCA_BARRA=DT

END FUNCTION

ai na condição where da sql ficaria Between #" & Format(coloca_barra(MskDataInicial.Text), "mm/dd/yyyy") & "# ...........

Valeu, amigo, com todas essas alterações, ainda assim não havia conseguido solucionar o problema, mas alterei algumas coisas, entre elas o campo do Banco de Dados para data e agora consegui imprimir o relatório correto, obrigado e desculpe pela mão-de-obra.