rptdocument = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & "Report\stampacliente.rpt"
        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        Dim mySelectFormula As String = ""

        rptdocument.Load(reportPath)
        rptdocument.SetDatabaseLogon(UserID, Password, Server, Database)

        myConnectionInfo.ServerName = Server
        myConnectionInfo.DatabaseName = Database
        myConnectionInfo.UserID = UserID
        myConnectionInfo.Password = Password

        SetDBLogonForReport(myConnectionInfo, rptdocument)   *

        mySelectFormula = "{OrdiniTesta.NrOrdine} = '" & v_nrordine & "'"

         rptdocument.RecordSelectionFormula = mySelectFormula
          rptdocument.PrintToPrinter(1, False, 1, 1)


 * Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)

        Dim myTables As Tables = myReportDocument.Database.Tables

        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next

    End Sub