ถามเรื่อง INFORMATION_SCHEMA.COLUMNS ใน Access ครับ

                Dim oleDBConn As OleDbConnection = New OleDbConnection(connstring)
                Dim tmpArray As String() = New String() {Nothing, Nothing, DBTable, Nothing}
                oleDBConn.Open()
                Dim dt As DataTable = oleDBConn.GetSchema("Columns", tmpArray)
                oleDBConn.Close()
                For Each dataRow As DataRow In dt.Rows
                    dt.Columns.Add(dataRow("Column_Name"))
                Next

                Return dt