I have this Sub:
Public Sub MakeForm()
vSQLDatos = "select * from [ttemp];"
Dim rsSQLDatos As Recordset
Set rsSQLDatos = CurrentDb.OpenRecordset(vSQLDatos)
Set frm = CreateForm
frm.RecordSource = vSQLDatos
vLeft = 1000
For i = 0 To rsSQLDatos.Fields.Count - 1
Set ctlText =...