Use the code below:
Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sample.mdb"
Dim olecon As New OleDbConnection(sConn)
olecon.Open()
Dim dt As DataTable = olecon.GetSchema("tables")
olecon.Close()
GridView1.DataSource = dt
GridView1.DataBind()