class excel connection

'//class

Namespace ExcelConnection

    Public Class ExcelConnection

#Region "Public Function(s)"

        Public Function ImportAttendence(ByVal PrmPathExcelFile As String, ByVal DataGridView1 As DataGridView)

            Dim MyConnection As System.Data.OleDb.OleDbConnection

            Try

                ''''''' Fetch Data from Excel

                Dim DtSet As System.Data.DataSet

                Dim MyCommand As System.Data.OleDb.OleDbDataAdapter

                MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & _

                                "data source='" & PrmPathExcelFile & " '; " & "Extended Properties=Excel 8.0;")

                ' Select the data from Sheet1 of the workbook.

                MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [sheet1$]", MyConnection)

                MyCommand.TableMappings.Add("Table", "Attendence")

                DtSet = New System.Data.DataSet

                MyCommand.Fill(DtSet)

                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

                DataGridView1.DataSource = DtSet.Tables(0)

                MyConnection.Close()

            Catch ex As Exception

                MyConnection.Close()

            End Try

        End Function

#End Region

    End Class

End Namespace

'//end class

'//preview in grid

 Private Sub Preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Preview.Click

        Try

            Dim _Obj As New ExcelConnection.ExcelConnection

            _Obj.ImportAttendence(Txt_Path.Text, Me.DataGridView1)

        Catch ex As Exception

        End Try

    End Sub

'//++++++++++++++++++