คำสั่ง VB get ชื่อตาราง และ ชื่อ คอลลัมน์ จากฐานข้อมูล Acess

	Dim objConn As OleDbConnection
	Dim objCmd As OleDbCommand

    Sub Page_Load(sender As Object, e As EventArgs)
		Dim strConnString As String
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		objConn = New OleDbConnection(strConnString)
		objConn.Open()

		BindData()
    End Sub

	Sub BindData()
		Dim strSQL As String
		Dim i As Integer
		strSQL = "SELECT * FROM customer"

		Dim dtReader As OleDbDataReader
		objCmd = New OleDbCommand(strSQL, objConn)
		dtReader = objCmd.ExecuteReader()

		Me.lblText.Text = "<b>Table customer have " & dtReader.FieldCount & " Fields</b>"

		For i = 0 To dtReader.FieldCount - 1
			Me.lblText.Text = Me.lblText.Text & "<br>" &  dtReader.GetName(i)
		Next

		dtReader.Close()
		dtReader = Nothing

	End Sub

	Sub Page_UnLoad()
		objConn.Close()
		objConn = Nothing
	End Sub

Dim userTables As DataTable = Nothing
Dim connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
' c:\test\test.mdb
connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\test.mdb"
' We only want user tables, not system tables
Dim restrictions() As String = New String(4) {}
restrictions(3) = "Table"
connection.Open()
' Get list of user tables
userTables = connection.GetSchema("Tables", restrictions)
connection.Close()
' Add list of table names to listBox
Dim i As Integer
For i = 0 To userTables.Rows.Count - 1 Step i + 1
System.Console.WriteLine(userTables.Rows(i)(2).ToString())
Next