Crystal Report - Subindice fuera de intervalo

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!!!