From http://www.functionx.com/ado/Lesson07.htm

Import_Into_Access_Table_in_any_column_order.vbs

' The adjacent data entry requires that you know the position of each column. The SQL provides
' an alternative that allows you to perform data entry using the name of a column 
' instead of its position. This allows you to provide the values of fields in any order of your choice.

' To perform data entry at random, you must provide a list of the columns 
' of the table in the order of your choice. You can either use all columns or
' provide a list of the same columns but in your own order.  Here is an example:

Private Sub btnCreateRecord_Click(ByVal sender As System.Object, _

                    ByVal e As System.EventArgs) Handles btnCreateRecord.Click

        Dim conPeople As New ADODB.ConnectionClass



        conPeople.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _

                       "Data Source='C:\Programs\People.mdb'", Nothing, Nothing, 0)

  conPeople.Execute("INSERT INTO Persons(LastName, Gender, FirstName) " & _

                             "VALUES('Germain', 'Male', 'Ndongo');")

        MsgBox("A new record has been created in the Persons table")

        conPeople.Close()

End Sub

SQLSyntax.vbs

' You dont have to provide data for all columns, just those you want, in the order you want. To do this, enter the names of the desired columns on the right side of the name of the table, in parentheses. The syntax used would be:

INSERT TableName(ColumnName1, Columnname2, ColumnName_n)

VALUES(ValueFormColumnName1, ValueFormColumnName2, ValueFormColumnName_n);