Installation Question

[Teresita Castro]

Hi!!! I am working with Visual Basic 6.0, Oracle 9.2i, and Crystal Report 8.5   I made some recordset to feed my reports, they are working find, but my problem now is that I don't know how to made an instalation. I made one with the Packge & deployment wizard, but that installation did not works, when I install it ask me for the client of Oracle. I have to install the client of Oracle?? I hope someone can help me because I don't have a clue on this.   This is an example of my code   '=====In a module Function Open_cnOracle() As Boolean Dim vaPieces As Variant On Error GoTo ErrorConectarOracle: Set gcnOracle = New ADODB.Connection With gcnOracle     .ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=burke00;Persist Security Info=True;User ID=lawson1;Data Source=LAWP"     .CommandTimeout = 0         .Open     Open_cnOracle = True End With     Exit Function ErrorConectarOracle:     MsgBox ("No se pudo abrir la Base de datos Oracle")     Open_cnOracle = False End Function     '======On a form Private Sub cmdImprimir_Click() Dim sF1 As String Dim sF2 As String iCia = cboCompany.ItemData(cboCompany.ListIndex) giParam1 = cboTipoRep.ItemData(cboTipoRep.ListIndex) sF1 = Format(dtpFecha1.Value, "mm/dd/yyyy") sF2 = Format(dtpFecha2.Value, "mm/dd/yyyy") If dtpFecha1.Value <= dtpFecha2.Value Then     gstrForm = "cr_ArbolVtas"         gstrParameter1 = cboCompany.Text     gstrParameter2 = "Del " & sF1 & " al " & sF2     gstrParameter3 = "REPORTE " + cboTipoRep.Text     gstrSQL = "SELECT OEINVCLINE.ITEM,  OEINVCLINE.DESCRIPTION, OEINVCLINE.QUANTITY, " & _        " Case OEINVCLINE.TAX_CODE WHEN 'IVA 0%'  THEN OEINVCLINE.TAXABLE_BSE " & _        " WHEN 'IVA 10%' THEN OEINVCLINE.TAXABLE_BSE*1.1 WHEN 'IVA 15%' THEN OEINVCLINE.TAXABLE_BSE*1.15 " & _        " Else OEINVCLINE.TAXABLE_BSE END TOT_LINE, OEINVCLINE.SALES_MAJCL, MAJORCL.DESCRIPTION AS MAJCL_DES, " & _        " OEINVCLINE.SALES_MINCL, MINORCL.DESCRIPTION AS MINCL_DES " & _        " FROM MAJORCL INNER JOIN OEINVOICE INNER JOIN " & _        " OEINVCLINE ON OEINVOICE.COMPANY = OEINVCLINE.COMPANY AND OEINVOICE.INVC_PREFIX = OEINVCLINE.INVC_PREFIX AND " & _        " OEINVOICE.INVC_NUMBER = OEINVCLINE.INVC_NUMBER ON MAJORCL.MAJOR_CLASS = OEINVCLINE.SALES_MAJCL LEFT OUTER JOIN " & _        " MINORCL ON OEINVCLINE.SALES_MINCL = MINORCL.MINOR_CLASS AND MAJORCL.ITEM_GROUP = MINORCL.ITEM_GROUP AND MAJORCL.CLASS_TYPE = MINORCL.CLASS_TYPE AND " & _        " MAJORCL.MAJOR_CLASS = MINORCL.MAJOR_CLASS WHERE OEINVOICE.COMPANY=" & iCia & " AND  " & _        " ( INVOICE_DATE BETWEEN to_date('" & sF1 & "','mm/dd/yyyy') AND to_date('" & sF2 & "','mm/dd/yyyy')) " & _        " AND ( MAJORCL.CLASS_TYPE = 'S') "     Load frmReport     frmReport.Show vbModal Else     MsgBox "Rango de fechas incorrecto" End If End Sub   '=================On the CrViewer form==================== Option Explicit Dim adoRS As ADODB.Recordset Dim crRep_ArbolVtas As cr_ArbolVtas   Private Sub Form_Load() Select Case gstrForm Case "cr_ArbolVtas"         ' Reporte de Porcentaje de vtas de Productos nacionales y de importacion         Set adoRS = New ADODB.Recordset         adoRS.Open gstrSQL, gcnOracle, adOpenForwardOnly, adLockReadOnly, adCmdText         If adoRS.EOF And adoRS.BOF Then  'No encontro             adoRS.Close             Set adoRS = Nothing             Screen.MousePointer = vbDefault             Exit Sub         Else             Set crRep_ArbolVtas = New cr_ArbolVtas             crRep_ArbolVtas.ParameterFields(1).AddCurrentValue gstrParameter1   'cia             crRep_ArbolVtas.ParameterFields(2).AddCurrentValue gstrParameter2  'Rango fechas             crRep_ArbolVtas.ParameterFields(3).AddCurrentValue gstrParameter3  'Titulo             If giParam1 = 1 Then 'Mostrar solo totales x clase mayor                 crRep_ArbolVtas.Section4.Suppress = True                 crRep_ArbolVtas.Section5.Suppress = True             ElseIf giParam1 = 2 Then 'Mostrar solo totales x clase mayor y menor                 crRep_ArbolVtas.Section5.Suppress = True             End If             crRep_ArbolVtas.Database.SetDataSource adoRS             CRViewer1.ReportSource = crRep_ArbolVtas                     End If