Read data from acess in vb.net

Imports System.Data

Public Class Form1
Dim DB As New DB_PROCESSOR

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



Try
Dim MyConnection As System.Data.OleDb.OleDbConnection
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='c:\a.xls';Extended Properties=Excel 8.0;")
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [anu$]", MyConnection)
MyCommand.TableMappings.Add("Table", "TestTable")
DtSet = New System.Data.DataSet
MyCommand.Fill(DtSet)
Dim dt1 As DataTable = DtSet.Tables(0)
Dim i, j As Integer
j = dt1.Rows.Count

DataGridView1.DataSource = DtSet.Tables(0)
MyConnection.Close()
Catch ex As Exception
'MsgBox(ex.ToString)
End Try
End Sub
End Class