Private Sub Form_Load()
Dim cadena As String
Dim crystal As New CRAXDRT.Application
Dim reporte As New CRAXDDRT.Report
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set crystal = New CRAXDRT.Application
Set reporte = New CRAXDDRT.Report
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Provider = "MSDASQL"
cnn.ConnectionString = "Driver={SQL Server};Server=DANIELPCKELINE;Database=Keline;Uid =sa;Pwd=samka"
cadena = " select * from Clientes order by Codigo"
rst.Open cadena, cnn, adOpenDynamic, adLockReadOnly
Set reporte = crystal.OpenReport(App.Path & "Ejemplo2.rpt")
reporte.DiscardSavedData
reporte.Database.SetDataSource rst
Me.crViewer.ReportSource = reporte
Me.crViewer.ViewReport
rst.Close
cnn.Close
End sub