Criar Procedure Inserir em banco de dados Microsoft Acces com VBA

Um Exemplo bem fácil e prático de como inserir dados em uma tabela no Microsoft Acces utilizando VBA - Macros do próprio Acces

A tabela que utilizaremos como exemplo terá somente dois campos: 

create table cidade(
cd_cidd integer,
nm_cidd varchar(15)
)


Será inserido na tabela dados conforme exemplo abaixo:

cd_cidd   nm_cidd
1         cidade1
2         cidade2
3         cidade3
4         cidade4
5         cidade5 

.... e assim sucessivamente até  que o loop chegue ao fim, que no nosso caso é de 1 milhão

No VBA utilize a procedure a seguir.

Sub inserir_dados()
 Dim dbs As Database
 Set dbs = OpenDatabase("Banco de dados1.accdb")
 Dim contador As Double
 Dim cidade As String

 contador = 1
 cidade = "cidade"
Do While (contador < 1000000)
 dbs.Execute "insert into cidade(cd_cidd,nm_cidd) " 
             &"values(" & contador & ",'" & cidade & contador & "')"
 contador = contador + 1
Loop
dbs.Close
End Sub