é que dah erro...  meu banco é mysql

é que da erro, eu to usando banco de dados mysql!!

qual é o erro?

Dim lFormula   As String

Crp.ReportFileName = App.Path & "eport1.rpt"
'Captura data inicial
lFormula = "({vteste_2.Data} >= DATE(" & Mid$(Text1.Text, 7, 4) & "," & Mid$(Text1.Text, 4, 2) & "," & Mid$(Text1.Text, 1, 2) & "))"
'Captura data final
lFormula = lFormula & " AND ({vteste_2.Data} <= DATE(" & Mid$(Text2.Text, 7, 4) & "," & Mid$(Text2.Text, 4, 2) & "," & Mid$(Text2.Text, 1, 2) & "))"

Crp.SelectionFormula = lFormula

Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.WindowTitle = "Relatório de Saida de Produtos por Funcionarios"
Crp.Action = 1

 

erro

 

run-time error '20515':

error in file c:.....................esport1.rpt:

error in formula (record_selection>.

'({vtexte_2.data} > date(06,/2,1)) and ({vtext_2.data <= date(006,3/,31))'

A number, currency amount, boolean, date time, date? developr.hip

meu amigo armando o erro esta é nessa linha aqui

Crp.ReportFileName = App.Path & "eport1.rpt"

esta faltando uma barra

Crp.ReportFileName = App.Path & "eport1.rpt"

naum tah naum é o forum tira as barras....   \