SoloCodigo

Hola a todos!
Ya se que hay varias discusiones sobre el mismo caso, pero es que no consigo que me funcione.

Antes que nada, decir que utiliza VB6, CR9 y SQL Server2000

Mi problema es que al visualizar el contenido de un recordset con el CR, éste me muestra todo el contenido de la tabla y no la búsqueda que tengo en el recordset.

Este es el codigo que utilizo, a ver si me podeis ayudar.

Dim Report As New Informe01
Dim Report1 As New CrystalReport1

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CRViewer.ReportSource = Report
   
     'rsopen es una funcion para abrir los recordset con el provider, user and pass adecuados.

     rsOpen rsInforme01, "rsInforme01", "SELECT * FROM V_INFORME01 WHERE ID=1"
       
        Report1.DiscardSavedData
        Report1.Database.Tables(1).ConnectionProperties("password") = "xxx"
        Report1.Database.Tables(1).SetDataSource rsInforme01              
        CRViewer.EnableGroupTree = True
       
        CRViewer.ViewReport
        CRViewer.Refresh

    Screen.MousePointer = vbDefault
End Sub


Tambien he utilizado con pero no funciona tampoco, me muestra todos los registros de V_INFORME01

   Report1.GroupSelectionFormula = "{V_INFORME01.NINCIDENCIA} = 1"
   Report1.readrecords


Espero vuestros comentarios, saludos

Gracias por la respuesta.
Pues no, la verdad es que me sigue mostrando todos los registros de esa tabla.

Lo raro es que tengo otra aplicación que conecta a Access y si fuinciona, pero esta que conecta a SQL Server no me va....

Espero que alguien se haya encontrado con mi mismo problema y pueda ayudarme.
Gracias