problem: when I create a table using the code below, the fields in the generated table are ordered alfabetically!
This code generates a table, but the fields 'lijn_lastenboek..' are shifted to the 2 and 3 place?!!Code:Sub CreateTable()
' Create the tables
Dim NewDB As New ADOX.Catalog
Dim tbl As New ADOX.Table
' Connect to database
NewDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\temp\webupdate.mdb"
' Create Table tbl_alg_lijn
With tbl
.Name = "tbl_alg_lijn"
.Columns.Append "lijn_ID", adChar, 8
.Columns.Append "lijn_naam_nl", adChar, 40
.Columns.Append "lijn_naam_fr", adChar, 40
.Columns.Append "lijn_volgorde", adSmallInt
.Columns.Append "lijn_lastenboek_nl", adLongVarChar
.Columns.Append "lijn_lastenboek_fr", adLongVarChar
NewDB.Tables.Append tbl
End With
End Sub
How can I keep the order that I want?
Thanks.
Calle
