acrescentar registro em varias colunas

estou com dificuldade de gerar registro em uma tabela usando essa função ..
Dim X As Long

   For X = Me.texto0 To Me.Texto2 'repete do inicial até final
           DoCmd.SetWarnings False 'Desliga o aviso
       DoCmd.RunSQL "INSERT INTO Tblnumeros (dados) SELECT " & X & ""
       Next
   DoCmd.SetWarnings True 'Liga o aviso
   MsgBox "Concluído", vbInformation

tenho a coluna (dados) e a coluna ( descr).. consigo gerar os registros na coluna dados porem na (descr) não consigo colocar os registros desejados..
alguem para dar uma luz.

De uma lida nesse tópico, la montei algo parecido com o que precisa!
https://www.maximoaccess.com/t26645-resolvidoadicionar-uma-quantia-de-dados-em-sequencia-a-partir-de-um-formulario