Subindice fuera de intervalo, crystal reports

[Enea]

Intento pasarle al crystal report la consulta desde el vb.
Uso crystal report 11 y visual basic 6, obtengo el siguiente error en tiempo de ejecución; el subindice esta fuera del intervalo... me lo marca en Report.Database.SetDataSource rsFactura...
Que estoy haciendo mal??

Private Sub Form_Load()

Dim Factura As Variant

Factura = "select factura.*, detfactura.*, cliente.Empresa, cliente.NIF, cliente.Direccion_Fiscal, cliente.Poblacion_Fiscal, cliente.CP_Fiscal from factura, detfactura, cliente where cliente.Id=factura.Id_Cliente and factura.Id_Factura=detfactura.Id_factura and factura.Id_Factura=1"

RS.Open Factura

Report.Database.SetDataSource rsFactura
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

RS.Close

GRACIAS!!!

[lop7]

hola...
prueba asi:
set Report.Database.SetDataSource = rsFactura

saludos...
nos vemos...

[The_Pretorian]

Bunos Dias
Yo lo tengo asi y no me da problemas

Set Report.Database.SetDataSource = Rs

Atte
Jorge Diaz

[Enea]

Si, teníais razón , aparte se me olvidó conectar el crystal...
Gracias igualmente!

[JuliusCV]

disculpen yo tengo el mismo problema, le puse como ustedes dicen y me da el siguiente error: "El Argumento no es Opcional" y me marca en ".SetDataSource"

espero que puedan ayudarme, voy comenzando con Crystal Report


Saludos y gracias!