Erros Mo Crystal Reports

[Danilo Faciroli]

Ola Pessoal estou desesperado : preciso de um relatorio onde eu informo o nome da minha clinica, e um intervalo de datas ex:

Nome da Clinica: SAUDE SOCIAL

PERIODO: 01/01/2007 ATE 31/01/2007

estou usando o seguinte codigo mas esta dando "error in formula", e tabem estes codigos não esta o nome da clinica se alguém puder corrigir este codigo para e imcrementa- lo para puxar o nome da minha clinica tambem, estou disposto ate a pagar $ mas eu preciso urgente desse relatorio,

Dim DataInicio, DataFinal As String

If mskData1 = "" Then

MsgBox ("Informe a data incial no formato yyyy/mm/dd ")

mskDataInicio.SetFocus

End If

If mskData2 = "" Then

MsgBox ("Informe a data final no formato dd/mm/yyyy ")

mskDataFinal.SetFocus

Exit Sub

End If

Screen.MousePointer = vbHourglass

DataInicio = Format(mskData1, "yyyy,mm,dd")

DataFinal = Format(mskData2, "yyyy,mm,dd")

Dim rptData As String

'formula a ser usada

rptData = "{Tabelaprodutos.DATA_COMPRA}"

Dim rptSelecao As String

rptSelecao = rptData & " in Date(" & Data1 & ") to Date (" & Data2 & ")"

'rptSelecao = "{Tabelaprodutos.DATA_COMPRA}>=" & DataInicio & " AND " & "{Tabelaprodutos.DATA_COMPRA}<=" & DataFinal

'Imprime o relatorio

CrystalReport1.ReportFileName = App.Path & "\pesquisa.rpt"

'Report1.Connect = ";PWD=pwd;"

CrystalReport1.DataFiles(0) = App.Path & "\sistmarcelo.mdb"

CrystalReport1.WindowTitle = "Vendas por datas"

CrystalReport1.SelectionFormula = rptSelecao

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Action = 1

Screen.MousePointer = vbDefault

End Sub

antecipadamente meus agradecimentos.

[Vilariño]

Criar dois parametros para as datas(Incio e Fim) e passa como parametro para o relatorio.

Deve resolver.

[raphael_suporte]

o filtro não pode ser feito direto no Crystal, prog que faça isso (tipo VB)