Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim cn As OleDb.OleDbConnection
        Dim p As System.Diagnostics.Process
        Dim dt As DataTable
        Dim DataSource As String = Server.MapPath(".") + "\Test.mdb"
        Dim sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
          datasource + ";Persist Security Info=False;"
        Try
            cn = New OleDb.OleDbConnection(sCon)
            dt = Me.GetTables(cn)
            Me.DataGrid1.DataSource = dt
            Me.DataGrid1.DataBind()
        Catch ex As Exception
            Response.Write(ex.ToString)
        End Try
    End Sub
    Public Function GetTables(ByVal conn As System.Data.OleDb.OleDbConnection) _
      As DataTable
        Dim schemaTable As DataTable
        With conn
            If .State = ConnectionState.Closed Then .Open()
            schemaTable = _
            .GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New _
            Object() {Nothing, Nothing, Nothing, "TABLE"})
            .Close()
        End With
        Return schemaTable
    End Function