Hola, yo logre comunicarme con el control de Crystal con estas instrucciones, usando una coneccion odbc
Dim m_Application As New CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Private Sub Command1_Click()
'@Screen.MousePointer = vbHourglass
Set m_Report = m_Application.OpenReport("C:\reportes\reporte.rpt")
m_Report.Database.LogOnServer "ODBC.dll", "nombre_ODBC", "BD", "usuario", "passsword"m_Report.DiscardSavedData
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
End Sub
Espero te sirva
Mostrar Mensajes
