CRYSTALREPORT1.SELECTIONFORMULA = SQL

AMARCOS2611 21/02/2015 22:31:13
#444677

Boa noite a todos

Estou com dificuldade para passar por essa formula
O erro esta na Formula
Dim vCriterioIni, vCriterioFim,SQL As String


SQL = [Ô]{TbPonto.DtaEntr1} => Date([Ô] & vCriterioIni & [Ô]) and {TbPonto.DtaEntr1} <= Date([Ô] & vCriterioFim & [Ô])[Ô]
CrystalReport1.DiscardSavedData = True
CrystalReport1.WindowState = 0
CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowTitle = [Ô]Folha de Ponto[Ô]
CrystalReport1.WindowControlBox = True
CrystalReport1.DataFiles(0) = App.Path & [Ô]\SisRegistrer.MDB[Ô]
CrystalReport1.ReportFileName = App.Path & [Ô]\Relatorios\RptPontoGeral.rpt[Ô]
CrystalReport1.SelectionFormula = SQL
CrystalReport1.SortFields(0) = [Ô]+{Tbponto.Codigo}[Ô]
CrystalReport1.WindowState = crptNormal
CrystalReport1.WindowShowZoomCtl = True
CrystalReport1.WindowState = Landscape
CrystalReport1.Action = 1

Esta com erro nº 20515