Priemramente deberías cerciorarte q teiens seleccioadna la referencia
"Crystal Reprots Active X Designer and run time library" o pro el estilo.... segun la versión de crystal puede varair el nombre...
el código más o menso quedaría de la sigueinte forma,... pero no te aseguro que funcione ya q yo uso ADODB (microsoft JET 4) connectado a un access 2003
Código:
Option Explicit
Dim basededatos As Database
Dim tablasocios As Recordset
Private Sub Form_Load()
Dim crxApplication As New CRAXDRT.Application
Dim crxReport As CRAXDRT.Report
Dim crxDatabase As CRAXDRT.Database
Dim crxDatabaseTables As CRAXDRT.DatabaseTables
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Set crxReport = crxApplication.OpenReport(App.Path & "\listado_fichas.rpt")
Set basededatos = OpenDatabase("C:\Programa Gestion Aikido\socios.mdb ")
Set tablasocios = basededatos.OpenRecordset("miembros_club")
crxReport.DiscardSavedData
Set crxDatabase = crxReport.Database
Set crxDatabaseTables = crxDatabase.Tables
crxReport.Database.SetDataSource tablasocios
crViewer.ReportSource = crxReport
crViewer.ViewReport
crViewer.Zoom 100
Screen.MousePointer = vbDefault
End Sub
Salu2.