VB.NET 2008 and Crystal Reports

        objForm.ViewReport("\\atlas\d atlas\Dept\IT\Reporting\Crystal\11.0 Copied Designs\Health Plan Renewal.rpt", , "@Begin_dt=" & begin_dt & "&@End_dt=" & end_dt & "&acct_mgr=" & am & "&ben_anal=" & ba & "&Name=" & group)
        objForm.Show()
 
 
 
Here is the code behind the report viewer form:
 
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmViewReport
    Inherits System.Windows.Forms.Form
 
    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.rptViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Me.SuspendLayout()
        '
        'rptViewer
        '
        Me.rptViewer.ActiveViewIndex = -1
        Me.rptViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.rptViewer.Dock = System.Windows.Forms.DockStyle.Fill
        Me.rptViewer.Location = New System.Drawing.Point(0, 0)
        Me.rptViewer.Name = "rptViewer"
        Me.rptViewer.SelectionFormula = ""
        Me.rptViewer.Size = New System.Drawing.Size(292, 266)
        Me.rptViewer.TabIndex = 0
        Me.rptViewer.ViewTimeSelectionFormula = ""
        '
        'frmViewReport
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Controls.Add(Me.rptViewer)
        Me.Name = "frmViewReport"
        Me.Text = "frmViewReport"
        Me.ResumeLayout(False)
 
    End Sub
    Friend WithEvents rptViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer
 
    Friend Function ViewReport(ByVal sReportName As String, _
Optional ByVal sSelectionFormula As String = "", _
Optional ByVal param As String = "") As Boolean
 
        'Declaring variablesables
 
        Dim intCounter As Integer
        Dim intCounter1 As Integer
 
        'Crystal Report's report document object
 
        Dim objReport As New  _
            CrystalDecisions.CrystalReports.Engine.ReportDocument
 
        'object of table Log on info of Crystal report
 
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
 
        'Parameter value object of crystal report 
 
        ' parameters used for adding the value to parameter.
 
        Dim paraValue As New CrystalDecisions.Shared.ParameterDiscreteValue
 
        'Current parameter value object(collection) of crystal report parameters.
 
        Dim currValue As CrystalDecisions.Shared.ParameterValues
 
        'Sub report object of crystal report.
 
        Dim mySubReportObject As  _
            CrystalDecisions.CrystalReports.Engine.SubreportObject
 
        'Sub report document of crystal report.
 
        Dim mySubRepDoc As New  _
            CrystalDecisions.CrystalReports.Engine.ReportDocument
 
        Dim strParValPair() As String
        Dim strVal() As String
        Dim index As Integer
 
        Try
 
            'Load the report
 
            objReport.Load(sReportName)
 
            'Check if there are parameters or not in report.
 
            intCounter = objReport.DataDefinition.ParameterFields.Count
 
            'As parameter fields collection also picks the selection 
 
            ' formula which is not the parameter
 
            ' so if total parameter count is 1 then we check whether 
 
            ' its a parameter or selection formula.
 
 
            If intCounter = 1 Then
                If InStr(objReport.DataDefinition.ParameterFields(0).ParameterFieldName, ".", CompareMethod.Text) > 0 Then
                    intCounter = 0
                End If
            End If
 
            'If there are parameters in report and 
 
            'user has passed them then split the 
 
            'parameter string and Apply the values 
 
            'to their concurrent parameters.
 
 
            If intCounter > 0 And Trim(param) <> "" Then
                strParValPair = param.Split("&")
 
                For index = 0 To UBound(strParValPair)
                    If InStr(strParValPair(index), "=") > 0 Then
                        strVal = strParValPair(index).Split("=")
                        paraValue.Value = strVal(1)
                        currValue = _
                            objReport.DataDefinition.ParameterFields(strVal(0)).CurrentValues
                        currValue.Add(paraValue)
                        objReport.DataDefinition.ParameterFields(strVal(0)).ApplyCurrentValues(currValue)
                    End If
                Next
            End If
 
            'Set the connection information to ConInfo 
 
            'object so that we can apply the 
 
            'connection information on each table in the report
 
            ConInfo.ConnectionInfo.UserID = "sa"
            ConInfo.ConnectionInfo.Password = "rampart29"
            ConInfo.ConnectionInfo.ServerName = "Apollo"
            ConInfo.ConnectionInfo.DatabaseName = "Labyrinth"
 
            For intCounter = 0 To objReport.Database.Tables.Count - 1
                objReport.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
            Next
 
            ' Loop through each section on the report then look 
 
            ' through each object in the section
 
            ' if the object is a subreport, then apply logon info 
 
            ' on each table of that sub report
 
 
            For index = 0 To objReport.ReportDefinition.Sections.Count - 1
                For intCounter = 0 To _
                    objReport.ReportDefinition.Sections(index).ReportObjects.Count - 1
                    With objReport.ReportDefinition.Sections(index)
                        If .ReportObjects(intCounter).Kind = _
                        CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                            mySubReportObject = CType(.ReportObjects(intCounter),  _
                              CrystalDecisions.CrystalReports.Engine.SubreportObject)
                            mySubRepDoc = _
                     mySubReportObject.OpenSubreport(mySubReportObject.SubreportName)
                            For intCounter1 = 0 To mySubRepDoc.Database.Tables.Count - 1
                                mySubRepDoc.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
                            Next
                        End If
                    End With
                Next
            Next
            'If there is a selection formula passed to this function then use that
 
            If sSelectionFormula.Length > 0 Then
                objReport.RecordSelectionFormula = sSelectionFormula
            End If
            'Re setting control 
 
            rptViewer.ReportSource = Nothing
 
            'Set the current report object to report.
 
            rptViewer.ReportSource = objReport
 
            'Show the report
 
            rptViewer.Show()
            Return True
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
    End Function
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:

Dim CR As New ReportDocument
        Dim strReportPath As String = "\\...."
        CR.Load(strReportPath)
        '
        ' Declare the parameter related objects.
        '
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        '
        ' Get the report's parameters collection.
        '
        crParameterFieldDefinitions = CR.DataDefinition.ParameterFields
        '
        ' Set the first parameter
        ' - Get the parameter, tell it to use the current values vs default value.
        ' - Tell it the parameter contains 1 discrete value vs multiple values.
        ' - Set the parameter's value.
        ' - Add it and apply it.
        ' - Repeat these statements for each parameter.
 
        crParameterFieldLocation = crParameterFieldDefinitions.Item(0)
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = txtCpar.Text.Trim
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
        'CR.PrintToPrinter(1, True, 0, 0)

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myConnectionInfo As New ConnectionInfo()
 
        myConnectionInfo.DatabaseName = "XXXXX"
        myConnectionInfo.UserID = "XXXXX"
        myConnectionInfo.Password = "XXXXX"
        setDBLOGONforREPORT(myConnectionInfo)
    End Sub
 
    Private Sub setDBLOGONforREPORT(ByVal myconnectioninfo As ConnectionInfo)
        Dim mytableloginfos As New TableLogOnInfos()
        mytableloginfos = CrystalReportViewer1.LogOnInfo
        For Each myTableLogOnInfo As TableLogOnInfo In mytableloginfos
            myTableLogOnInfo.ConnectionInfo = myconnectioninfo
        Next
 
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18: