[Resolvido]Base de dados de Clientes não reais

Por um acaso estou terminando de implementar algo que gera registros com nomes, sobrenomes e data de nascimento de forma aleatória. Tenho, para isso, uma tabela com quase dois mil nomes e outra com mais de cinco mil sobrenomes. O sistema gera uma combinação de nomes com sobrenomes aleatoriamente e sem repetir. Ele está sendo programado para gerar datas de nascimentos entre 18 e 108 anos. Por enquanto tem apenas esses campos. Assim que pronto, disponibilizo o exemplo.

Tenho aqui uma bíblia sobre Access97 que lembro que possui um longo código para gerar registros aleatórios via código.
Mas numa olhada rápida não encontrei... vou procurar com mais calma.
Quando achar passo pra você dar uma olhada. Talvez ajude no que está desenvolvendo.

Encontrei o código... espero que ajude...
É de um livro sobre Access97.

Criquio

Comentou que está trabalhando na geração aleatória da datas de nascimento...
Teria algo a ver com isso:

Date() + Int(Rnd*AlgumNumero)

ou

Date() - Int(Rnd*AlgumNumero)

Exemplo:

Date() + Int(Rnd*100)
Date() - Int(Rnd*500)

Estou curioso: como eu uso isso pra jogar na tabela?

Algo assim:

Dim Ano As Integer, Mes As Integer, Dia As Integer, Data As Date

Ano = Format(Date, "yyyy") - Int((108 - 18 + 1) * Rnd + 18)
Mes = Int((12 - 1 + 1) * Rnd + 1)
Dia = Int((Format(DateSerial(Year(Ano), Month(Mes) + 1, 0), "dd") - 1 + 1) * Rnd + 1)
Data = Format(Dia, "dd") & "/" & Format(Mes, "mm") & "/" & Ano

O ano está programado para gerar idades por volta dos 18 até 108. Se quiser mudar, basta mudar esses valores. Na Data, formatamos o dia e o mês como dd e mm, mas o ano não precisa porque já foi formatado na variável Ano como yyyy. Fiz dessa forma para randomizar tanto o dia, quanto o mês e o ano.