"Scotter" <spam@spam.com> wrote in message
news:YF5Ec.33065$w3.6459@fe2.texas.rr.com...
> When I use ADOX to get columns(fields) of a table, they are *auto-sorted
> alphabetically by name*.
> I need to get the list of field names as they appear when I open the MDB
> file and view details of the table, *not* sorted by field name
> alphabetically.
> I tried using open schema with following code causing this error msg:
"Item
> cannot be found in the collection corresponding to the requested name or
> ordinal"
> Set rsSchema = conn.OpenSchema(4, Array(Empty, Empty, "config"))
> rsSchema.Sort = "ORDINAL_POSITION"
> Thanks!
> --
> Scotter
>
>

"[MSFT]" <lukezhan@online.microsoft.com> wrote in message
news:47kIARbXEHA.3788@cpmsftngxa10.phx.gbl...
> Hi Scotter,
>
> Have you set the cursor's location to client side? I have tested following
> code and it seems to work:
>
> Dim rsSchema
> Dim cnn
>
> Set cnn = CreateObject("ADODB.connection")
>
> cnn.CursorLocation = 3
> cnn.Provider = "Microsoft.Jet.OLEDB.4.0;"
> cnn.Open "Data Source=C:\db1.mdb;"
>
> Set rsSchema = cnn.OpenSchema(4, Array(Empty, Empty, "table1"))
> rsSchema.Sort = "ORDINAL_POSITION"
>
>
> Luke
>