loop para inserir dados em uma tabela

Bom dia mestres,

como poderia desenvolver um loop para adicionar registros em uma tabela ? estou tentando assim porem não está dando certo:

Dim d As DAO.Recordset
Dim s As Integer

d.AddNew

Me.txtteste.Value = "seila"
d.MoveNext

bom dia

segue estrutura basica de repetição junto com a adição de dados na tabela

Código:

Dim rs As recordset
Dim i As Integer
Dim xVezes As Integer

'abre a tabela
Set rs = CurrentDb().OpenRecordset("tabela1")

'numero de vezes q ira repetir
xVezes = 5

'estrutura de repetição
For i = 1 To xVezes
    'comando usado para adicionar um novo registro
    rs.AddNew
        'atribuição de valores no campo nmCampo.
        rs!nmCampo = "Sei la " & i 'o comando & i ira colocar no final da frase Sei la a posição atual do loop, iniciando com 1
    'comando usado para salvar o registro recém criado
    rs.Update  
Next i 'avança

'fecha a tabela
Set recordset = Nothing