Dim oRpt As ReportDocument

        oRpt = New ReportDocument

        Dim reportPath As String = Server.MapPath("Medea.rpt")

        oRpt.Load(reportPath)

        Dim ServerName As String = "MSDB08Q"

        Dim DatabaseName As String = "ONBOARD"

        Dim userIDName As String = "sa1"

        Dim pwdName As String = "pass234"

        Dim crConnectionInfo As New ConnectionInfo

        Dim CrTables As Tables

        Dim CrTable As Table

        Dim crtableLogoninfos As New TableLogOnInfo

        Dim crtableLogoninfo As New TableLogOnInfo

        Dim crParameterFieldDefinitions As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions

        Dim crParameterFieldDefinition As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition

        Dim crParameterValues As New ParameterValues

        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        With crConnectionInfo

            .ServerName = ServerName

            .DatabaseName = DatabaseName

            .UserID = userIDName

            .Password = pwdName

        End With

        CrTables = oRpt.Database.Tables

        For Each CrTable In CrTables

            crtableLogoninfo = CrTable.LogOnInfo

            crtableLogoninfo.ConnectionInfo = crConnectionInfo

            CrTable.ApplyLogOnInfo(crtableLogoninfo)

               CrTable.Location = crConnectionInfo.DatabaseName & ".dbo." & CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1)

        Next

        crParameterDiscreteValue.Value = Request.QueryString("id")

        crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields

        crParameterFieldDefinition = crParameterFieldDefinitions.Item("OBID")

        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Add(crParameterDiscreteValue)

        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        oRpt.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape

        Dim oStream As New MemoryStream 'using System.IO

        If Request.QueryString("t") = "pdf" Then

            oStream = oRpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)

            Response.Clear()

            Response.Buffer = True

            Response.ContentType = "application/pdf" 'vnd.ms-word

            Response.BinaryWrite(oStream.ToArray())

            Response.End()

        Else

            oStream = oRpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.Excel)

            Response.Clear()

            Response.Buffer = True

            Response.ContentType = "application/vnd.ms-excel"

            Response.BinaryWrite(oStream.ToArray())

            Response.End()

        End If

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Runtime.InteropServices.COMException: Logon failed.
Details: Error Code: 0x
Source: ADODB.Connection
Description: Provider cannot be found. It may not be properly installed.Error in File C:\WINDOWS\TEMP\Medea {E48953AA-F243-4F31-92B1-4CD4BCA4154F}.rpt:
Unable to connect: incorrect log on parameters.

Source Error:

Line 72: 

Line 73:         If Request.QueryString("t") = "pdf" Then

Line 74:             oStream = oRpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)

Line 75:             Response.Clear()

Line 76:             Response.Buffer = True