ASP.NET

Dim repdoc As New ReportDocument
    Dim coninfo As New ConnectionInfo
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            repdoc.Load(Server.MapPath("Reports\CrPatSummRpt.rpt"))
            'Connection details:database name,username, password
            coninfo.ServerName = "Server"
            coninfo.DatabaseName = "TDB"
            coninfo.UserID = "sa"
            coninfo.Password = "sa"
            fnSetLogonInfoSubreport(coninfo, repdoc)
            fnSetLogonInfo(coninfo, repdoc)
            'Setting parameter which are passring fronm code behind to crystal report
            fnSetReportParameters()
            'Binding report
           'assigning report document to report viwer control
            crPatSummRpt.ReportSource = repdoc
        Catch ex As Exception

        End Try
End Sub


 Private Sub fnSetLogonInfo(ByVal subConinfo As ConnectionInfo, ByRef m_reportDoc As ReportDocument)
        Try
            Dim tblLogonInfos As New TableLogOnInfos
            Dim tabs As Tables = repdoc.Database.Tables
            For Each tab As Table In tabs
                Dim logininfo As TableLogOnInfo = tab.LogOnInfo
                logininfo.ConnectionInfo = coninfo
            Next
        Catch ex As Exception
        End Try
    End Sub

    Private Sub fnSetLogonInfoSubreport(ByVal subConinfo As ConnectionInfo, ByVal _reportDoc As ReportDocument)
        Dim sects As Sections = m_reportDoc.ReportDefinition.Sections
        For Each sect As Section In sects
            Dim repObjects As ReportObjects = sect.ReportObjects
            For Each repObject As ReportObject In repObjects

                If repObject.Kind = ReportObjectKind.SubreportObject Then
                    Dim subRepObj As SubreportObject = repObject
                    Dim subRep As ReportDocument = subRepObj.OpenSubreport(subRepObj.SubreportName)
                    fnSetLogonInfo(subConinfo, subRep)
                    subRep.VerifyDatabase()
                End If
            Next

        Next
    End Sub
 Private Sub fnSetReportParameters()
        ' all the parameter fields will be added to this collection 
        Dim paramFields As ParameterFields = New ParameterFields()
        ' the parameter fields to be sent to the report 
        Dim pfpatId As ParameterField = New ParameterField()
        Dim pfidSumm As ParameterField = New ParameterField()
        Dim pfOffID As ParameterField = New ParameterField()
Dim dcPatId As ParameterDiscreteValue = New ParameterDiscreteValue()
        Dim dcIDSumm As ParameterDiscreteValue = New ParameterDiscreteValue()
        Dim dcOffID As ParameterDiscreteValue = New ParameterDiscreteValue()

        pfpatId.ParameterFieldName = "PatId"
        pfidSumm.ParameterFieldName = "IdSumm"
        pfOffID.ParameterFieldName = "officeId"
        dcPatId.Value = 155
        dcIDSumm.Value = 897
        dcOffID.Value = 1
        pfpatId.CurrentValues.Add(dcPatId)
        pfidSumm.CurrentValues.Add(dcIDSumm)
        pfOffID.CurrentValues.Add(dcOffID)

        paramFields.Add(pfpatId)
        paramFields.Add(pfidSumm)
        paramFields.Add(pfOffID)
       crPatSummRpt.ParameterFieldInfo = paramFields
end sub