[Resolvido]Gerar 1 milhão de registros automatico

Boa tarde, pesoal!

Eu peguei este codigo para preencher uma tabela com dados em um site, mas não consigo entender qual o problema. Está dando erro de compilação na linha que está em vermelho! Segue o código...


Option Compare Database

Private Sub btCriarRegistros_Click()
Dim NomeCliente
Dim SobreNome
Dim Rnv
Dim Ope
Dim j As Long
Dim k As Long
Dim strSql As String
Dim rs As DAO.Recordset
Dim Escala As Single

If Len(Me!txTotal & "") = 0 Or Me!txTotal > 5000000 Or Me!txTotal <= 0 Then
  MsgBox "Valor fora da escala (1 a 5 milhões)...", vbInformation, "Aviso"
  Exit Sub
End If
'-----------------------
'Abre tabela tblTeste
'-----------------------
Set rs = CurrentDb.OpenRecordset("tblTeste")
'---------------------------
'Habilita botão Abortar
'---------------------------
Me!btAbortar.Enabled = True
'-------------------------------------------
'66 nomes armazenados na matriz NomeCliente
'--------------------------------------------
NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."
NomeCliente = Split(NomeCliente, ",")
'-----------------------------------------------
'34 sobre nomes armazenados na matriz SobreNome
'-----------------------------------------------
SobreNome = "Sampaio,Henrique,Barbosa,Carvalho,Santana,Abreu,Santos,.."
SobreNome = Split(SobreNome, ",")
'----------------------------------------
'False e True armazenados na matriz Rnv
'----------------------------------------
Rnv = Split("0,-1", ",")
'------------------------------------------------
'6 nomes de operadoras armazenados na matriz Ope
'------------------------------------------------
Ope = Split("Vivo,Claro,Tim,OI,Nextel,GVT", ",")
'---------------------------------------
'Definindo escala da barra de progresso
'---------------------------------------
Me!Caixa.Width = 0.01
Escala = (567 * 3) / Me!txTotal
'-------------------------------------------------------------------
' Adicionando os registros, com dados aleatórios, na tabela tblTeste
'--------------------------------------------------------------------
For j = 0 To (Nz(Me!txTotal, 0)) - 1
  rs.AddNew
     rs!NomeCliente = NomeCliente(Int(Rnd() * 66)) & " " & SobreNome(Int(Rnd() * 34))
     rs!dataNascimento = CDate(Int(Rnd() * 29949) + 10959)
     rs!Operadora = Ope(Int(Rnd() * 6))
     rs!ValorCobrado = Round(Int(Rnd() * 450) * 1.3457, 2)
     rs!Nota = Int(Rnd() * 11)
     rs!Renovar = Rnv(Int(Rnd() * 2))
  rs.Update
  Randomize
  k = k + 1
  DoEvents
  If booAbortar Then: Exit For
  If Sel = 0 Then: Me!Caixa.Width = Escala * k
Next
booAbortar = False
MsgBox "Foram criados " & k & " registros...", vbInformation, "Aviso"
Me!Caixa.Width = 0.01
Me!TxInforme.Requery
Me!txTotal = Null
Me!txTotal.SetFocus
Me!btAbortar.Enabled = False
End Sub

Olá, boa tarde...

Código:

'66 nomes armazenados na matriz NomeCliente
'--------------------------------------------
NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."

NomeCliente = "Avelino,Pedro,Luiz,Elizabete,Thais,kelly,Gilberto,Claudio,..."
Não há 66 nomes e sim 9, contando com as ....

Precisa haver 66 nomes separados por vírgulas.

Muito obrigado!

Eu achei que o problema era não ter declarado como matriz, mas depois eu vi que não era isto.

Salvou!!!

Isso aí meu amigo!