Visual Basic - error

tengo este codigo

Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
db.Open "dsn=r", "ad", "ad" 'conexion a Base de datos 'mediante ODBC
rec.Open "select * from facli where localid = '" & Text1.Text & "' order by localid",db, adOpenKeyset, adLockOptimistic 'actualizo la sentencia
------------------------------------------------------------------------------------
Report.Database.SetDataSource rec 'actualizo el recordset
---------------------------------------------------------------------------------
Set Report = Appl.OpenReport(App.Path & "\clies.rpt")
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault



cuando lega aki:Report.Database.SetDataSource rec 'actualizo el recordset

me da este error:error en el metodo "database" del objeto "IReport"
gracias