Visual Basic

Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance()<br />
        Dim table1 As System.Data.DataTable = instance.GetDataSources()<br />
        For Each row As DataRow In table1.Rows<br />
<br />
            If cboServer.Items.Contains(row.Item(0).ToString) Then<br />
            Else<br />
                cboServer.Items.Add(row.Item(0).ToString)<br />
            End If<br />
        Next

Private Sub OpenFile()
    Try
        excelApp = New Excel.ApplicationClass()
        excelApp.Visible = False
        excelworkbook = excelApp.Workbooks.Open(workbookPath, 0, False, 5, "", "", False, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", True, False, 0, False, False, False)
        excelSheets = excelworkbook.Worksheets
        excelWorkSheet = excelworkbook.Worksheets("Sheet1")
        MessageBox.Show("Connected and Opened")
        range = excelWorkSheet.UsedRange
        MsgBox("Rows = " + range.Rows.Count.ToString + " Cols = " + range.Columns.Count.ToString)
    Catch e As Exception
        excelSheets = Nothing
        excelworkbook = Nothing
        excelWorkSheet = Nothing
        excelApp = Nothing
        MessageBox.Show("Exception MSG " + e.Message + "\n ST :" + e.StackTrace)
    End Try
End Sub

Private Function ReadRow(ByVal rowNo As Integer, ByVal startRange As String, ByVal endRange As String) As Array
    Dim rge As Excel.Range = Nothing
    Dim valuesList As Array = Nothing

    Try
        rge = excelWorkSheet.Range(startRange, endRange)
        valuesList = rge.Cells.Value
    Catch e As Exception
        MsgBox("Uable To Read from " + startRange + " To " + endRange + " Due to " + vbCrLf + e.StackTrace)
        Save_Close()
    End Try

    Return valuesList
End Function

Private Sub Save_Close()
    Try
        excelworkbook.Save()
        excelworkbook.Close()
    Catch ee As Exception
        MessageBox.Show("Unable To Save : " + ee.Message)
        excelworkbook.Close()
    End Try

    releaseObject(excelApp)
    releaseObject(excelworkbook)
    releaseObject(excelWorkSheet)
    releaseObject(excelSheets)

    MessageBox.Show("File Closed")
End Sub

Private Sub releaseObject(ByVal obj As Object)
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally
        GC.Collect()
    End Try
End Sub

Me.ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
Me.ReportViewer1.LocalReport.ReportPath = "C:\Report1.rdlc"
Me.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("tblEmp", tbl))
Me.ReportViewer1.RefreshReport()