01.Dim oleDBConn As OleDbConnection = New OleDbConnection(connstring)
02.Dim tmpArray As String() = New String() {Nothing, Nothing, DBTable, Nothing}
03.oleDBConn.Open()
04.Dim dt As DataTable = oleDBConn.GetSchema("Columns", tmpArray)
05.oleDBConn.Close()
06.For Each dataRow As DataRow In dt.Rows
07. dt.Columns.Add(dataRow("Column_Name"))
08.Next
09.
10.Return dt
