schemaTable.Rows(i).ToString order issues - vb.net

Question

I found the code: schemaTable.Rows(i)!COLUMN_NAME.ToString online, but the columns are out of order. Is there a way to enforce row integrity?
I have columns that have numbers like A1 and A16 (not literally, just as examples) that, when listed, show up in order of A1 A10 A11 ... A16 A2.
UPDATE:
TimG, this should explain what you're asking for, I hope.
Using db As New OleDb.OleDbConnect(constr)
db.Open()
Dim cmd As New OleDbCommand(STATEMENT, db)
Dim schemaTable As DataTable = db.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, table_name, Nothing})
Try
For i = 0 To SchemaTable.Rows.Count - 1
MsgBox(schemaTable.Rows(i)!COLUMN_NAME.ToString)
next i
catch e as exception
end try
end using
This entire list returns out of order in the MsgBox (or any other display method). The columns display in the order in which the strings would if they were alphanumeric instead of by the numbers at the end (i.e. A16 comes before A2) but the actual order is A2 A3 A4 ... A16. I'm not certain how to fix this issue outside of breaking down the strings themselves and looking for numerics in the string, but there must be a way to show the actual order in which they occur.

Answer 1

Yes, it appears that the GetOleDbSchemaTable approach (as outlined in the "Create Sample That Lists Columns in a Table" section of the Microsoft support document here) lists the columns in alphabetical order.
You might be happier with the results of using SELECT * to open an empty OleDbDataReader and then iterating through its fields:
Imports System.Data.OleDb
Module Module1
Sub Main()
Using con As New OleDbConnection
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Public\Database1.accdb;"
con.Open()
Using cmd As New OleDbCommand
cmd.Connection = con
cmd.CommandText = "SELECT * FROM aTestTable WHERE False"
Dim rdr As OleDbDataReader = cmd.ExecuteReader()
For i = 0 To rdr.FieldCount - 1
Console.WriteLine(rdr.GetName(i))
Next
End Using
End Using
End Sub
End Module