tablecreation: fields in alfabetical order?

[c@lle]

problem: when I create a table using the code below, the fields in the generated table are ordered alfabetically!

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

This code generates a table, but the fields 'lijn_lastenboek..' are shifted to the 2 and 3 place?!!
How can I keep the order that I want?

Thanks.
Calle