Pessoal, bom dia

Eu estou querendo fazer uma consulta por período conforme o código abaixo e ta dando o seguintwe erro na linha  CR1.ACTION

"O ERRO É ESSE

RUNTIME ERROR 20515

Error in file C:vendasconsulta.rpt

Error in formula<Record Selection>

"{CLIENTE.codigo} > =" & TextInicial.Text & "  and {CLIENTE.codigo} < = " & TextFinal & " "

e number, currency amount, bollean, date, time, date time or string  is expected here"

O CODIGO QUE ESTOU USANDO E ESSE

Option Explicit
Dim bco As Database
Dim TABCLI As Recordset
Private Sub Command1_Click()

CR1.ReportFileName = "C:VendasCONSULTA.rpt"
CR1.CopiesToPrinter = 1
CR1.Destination = crptToWindow
CR1.SelectionFormula = "{CLIENTE.codigo} > =" & TextInicial.Text & "  and {CLIENTE.codigo} < = " & TextFinal & " "
CR1.Action = 1
End Sub
Private Sub Form_Load()
Set bco = OpenDatabase(App.Path & "VENDA.mdb")
Set TABCLI = bco.OpenRecordset("CLIENTE", dbOpenTable)
TABCLI.Index = "INDCODIGO"
End Sub

USO VB 6

BANCO DE DADOS ACCESS 2003

DAO 3.6

CRYSTAL REPORT 8.5

ALGUEM PODE ME AJUDAR