Estou com o seguinte problema: ao inserir um novo registro uso um procedimento para gerar um codigo aleatório; o problema acontece quando vou inserir um novo registro e dai é feita uma comparação com todos os regsitros existentes ecom isso fica demorado.

Caso tenha que inserir dois ou mais registros, depois do primeiro que é iserido, os demais vão automaticamente. Preciso tornar mais repida esta comparação, tem como?

Abaixo o código que estou usando

'Gera o codigo do cliente automaticamente
    frmPrincipal.txtCodigo.Text = Int((899999 - 800000) * Rnd + 800000)
    Cadastro.Index = "Codigo"
    Cadastro.Seek "=", frmPrincipal.txtCodigo
'Verifica se o codigo gerado existe no banco de dados se existir gera outro codigo
If Cadastro.NoMatch = False Then
'Volta para a linha 'verificacodigo:'
    GoTo verificacodigo
End If

Caso você use Access, porque você não usa o próprio código autonumérico do campo. Ou então, com ele já na condição autonumérica, você abre a tabela e move para o último registro, pega o último código e soma mais 1.