Problema al crear tabla con vba

[manuelponte]

Estoy intentando crear una tabla en Vba que coje los nombres de otra y mediante código les introduce los datos, hasta aqui todo bien. El problema surge cuando a la vez quiero que me cree otros campos intercalados que tengan el mismo nombre que los anteriores pero con un 1 añadido. Mi código es el siguiente:
Dim db As DAO.Database
Dim rs, ps As DAO.Recordset
Dim tdfNuevo As TableDef
Dim fldNuevo(70) As Field
Dim ret As Long

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM HOGARES2")
Set tdfNuevo = db.CreateTableDef("VAR_HOGARES")

'Comprueba si la tabla existe o no,
ret = FindTable("VAR_HOGARES")
If ret = -1 Then
'si la tabla existe la borra
db.TableDefs.Delete "VAR_HOGARES"
End If

'Crea la tabla de almacenaje
i = 0
While i < rs.Fields.Count
pepe = rs.Fields(i).Name
luis = rs.Fields(i).Name & 1

With tdfNuevo
.Fields.Append .CreateField(pepe, dbSingle)
'.Fields.Append .CreateField(luis, dbSingle)sin esto funciona
End With

i = i + 1
Wend

db.TableDefs.Append tdfNuevo