Consulta en Access.

Hola Medievo:
Necesito que me ayudes con lo siguiente tengo una base de datos en access 2003 que cruzo dos tablas y crea una tabla desde un combobox, eso anda bien me la crea.
Luego debo crear tres campos esto lo hago mediante ADO.
With tftabla
Set fdcampo = .CreateField("NOM_2", dbText)
.Fields.Append fdcampo
Set fdcampo = .CreateField("SEXO_2", dbText)
.Fields.Append fdcampo
Set fdcampo = .CreateField("FOLIO1", dbLong)
.Fields.Append fdcampo
End With
Hasta aquí todo muy bien. Después la debo llenar con campos de la misma tabla creada anteriormente.
Esto lo hago
Do While Not rd.EOF
rd.Edit
rd.Fields(29).Value = rd.Fields(4)
rd.Fields(30).Value = rd.Fields(5)
rd.Fields(31).Value = CLng(rd.Fields(0))
rd.Update
rd.MoveNext
Loop
Esto también lo hace pero quiero ordenar la tabla creada con el valor de FOLIO1, y aquí me aparece el error " algo sobre los criterios".
La ordeno con una sentencia SQL.:
sql1 = "SELECT " & nom & ".*,FOLIO1," & "*"
sql1 = sql1 & " FROM " & nom
sql1 = sql1 & " ORDER BY CLng(Val(" & nom & ".FOLIO1));"
'Debug.Print sql1
Set db = CurrentDb.OpenRecordset(sql1, dbopendynaset)
Ya no se que hacer al respecto, me podrías ayudar.
Muchas gracias.
Atentamente.