Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim Tab As CrystalDecisions.CrystalReports.Engine.Table Dim LogonInfo As CrystalDecisions.Shared.TableLogOnInfo Try LogonInfo = Tab.LogOnInfo With LogonInfo.ConnectionInfo .ServerName = "(Local)" .UserID = "sa" .Password = "myPassword" .DatabaseName = "ctore" End With Tab.ApplyLogOnInfo(LogonInfo) Catch ex As Exception Dim cError As String = ex.Message.ToString MsgBox(cError) End Try Select Case ComboBox1.Text Case "<Pick a Report>" CrystalReportViewer1.ReportSource = Nothing Case "SimpleReport1" CrystalReportViewer1.ReportSource = New SimpleReport1 End Select End Sub