Public cn As New ADODB.Connection 
 
Public rs As New ADODB.Recordset 
 
Public CnString As String 
 
Public SQLSelect As String 
 
Public crxApp As New CRAXDRT.Application 
 
Public crxReport As CRAXDRT.Report
 
 
 
 
Private Sub Form_Load() 
 
Call OpenDatabase 
 
Call LoadReport 
 
End Sub
 
 
 
 
Public Function LoadReport() 
 
Set crxReport = New CRAXDRT.Report 
 
Set crxApp = CreateObject("CrystalRuntime.Application") 
 
Set crxReport = crxApp.OpenReport("C:Try.rpt", 1) crxReport.DiscardSavedData 
 
crxReport.Database.SetDataSource rs 
 
crvViewer.ReportSource = crxReport 
 
crvViewer.ViewReport 
 
rs.Close 
 
cn.Close 
 
End Function
 
 
 
 
Public Function OpenDatabase() 
 
Set cn = New ADODB.Connection 
 
CnString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=exim" cn.ConnectionString = CnString 
 
cn.Open 
 
cn.CursorLocation = adUseClient 
 
SQLSelect = "SELECT * FROM EMP_VIEW" 
 
rs.Open SQLSelect, cn, adOpenDynamic, adLockReadOnly 
 
End Function
 
 
 
 
Private Sub Form_Resize() 
 
crvViewer.Top = 0 
 
crvViewer.Left = 0 
 
crvViewer.Height = ScaleHeight 
 
crvViewer.Width = ScaleWidth 
 
End Sub