Mirad este código !!!. CR 9 y VB 6

jarri10
09 de Junio del 2005
Hola, necesito ayuda!!!!! Estoy amargado con crystal, utilizo VB 6 y CR 9 .
Mi problema es el siguiente yo voi aciendo unas selects segun vaya por uhn camino u otro, entonces esas selects kiero k me las muestre para imprimir en el momento en el k esté.
ESK NO TENGO NPI, me muestra el rpt pero no me filtra, me muestra todos los campos

Dim Report As New CrystalReport1
Dim tabla As New ADODB.Connection
Dim rs As New ADODB.Recordset

Function cargar(imprimir)
Set tabla = New ADODB.Connection
Set rs = New ADODB.Recordset
tabla.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=repasos.mdb;Persist Security info=False"
Screen.MousePointer = vbHourglass
rs.Open imprimir, tabla, adOpenKeyset, adLockBatchOptimistic
'donde imrpimir puede ser: SELECT repaso.cod_repaso,portal,planta,puerta,habitacion.nombre,tipo.tipo_repaso,codigo.codigo,repaso.descripcion,fecha from repaso,obra,habitacion,tipo,codigo where obra.nombre = 'diana del litoral' and obra.cod_obra = repaso.cod_obra and habitacion.cod_habitacion = repaso.cod_habitacion and tipo.cod_tipo = repaso.cod_tipo and repaso.codigo= codigo.codigo and repaso.portal = '3'
Report.Database.SetDataSource rs, 3, 1
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
CRViewer91.Refresh
Screen.MousePointer = vbDefault
End Function

Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub

Despues en el reporte k lo tengo dentro de vb, diseñadores, pos tengo la conexion a la bd y e puesto los campos :portal, planta pa probar pero me los pone todos en vez de filtrar por el portal 3