hola quiero ver si alguien me puede ayudar lo que pasa es que al tratar de pasarle un recordset a crystal report solo me muestra el primer registro he comprobado el recordset y si me trae los 5 datos que tengo en la base de datos, utilizo acces 97 y visual basic 6.0 el codigo es el siguiente.
Option Explicit
Dim crapp As New CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Dim rs As ADODB.Recordset
Dim Recset As ADODB.Recordset
Dim FileReport As String
Private Sub Command1_Click()
Set crapp = New CRAXDRT.Application
Set reporte = crapp.OpenReport(App.Path & "\reportes\reporte1.rpt")
Set rs = New ADODB.Recordset
conexion 'modulo que se conecta con la base de datos
rs.Open "SELECT * FROM Usysdatosper WHERE nombre='" & Text1 & "'", cn, adOpenDynamic, adLockReadOnly
'rs.Open "SELECT * FROM Usysdatosper", cn, adOpenDynamic, adLockReadOnly
If rs.EOF Then
MsgBox ""
Else
reporte.Database.SetDataSource rs, 3, 1
CRV.ReportSource = reporte
CRV.ViewReport
Set reporte = Nothing
Exit Sub
End If
End Sub
