hola bebita se que te molesto otra vez pero por que crees que al pasarle el recordset me muestre el siguiente mensaje : el sudindice esta fuera del intervalo aqui te mando el codigo.
Option Explicit
Dim crapp As CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Set crapp = New CRAXDRT.Application
Set reporte = crapp.OpenReport(App.Path & "\reportes\reporte1.rpt")
conexion 'rutina para la conexion con la base
Set rs = New ADODB.Recordset
rs.Open "SELECT *FROM Usysdatosper WHERE nombre='patricia'", cn, adOpenDynamic, adLockReadOnly
reporte.Database.SetDataSource rs, 3, 1'aqui es donde me muestra el error
CRV.ViewReport
Set reporte = Nothing
End Sub
Private Sub Form_Load()
'conexion
End Sub
espero me contestes
