[Resolvido]Gerar código de barras sem repetição

Olá pessoal, estou usando o código abaixo no evento clique de um botão para gerar código de barras aleatórios, o único problema é que as vezes ele gera código que já foi gerado.
Queria que ao clicar ele verificasse se já existe, caso positivo gerava outro.

Código:

Dim CodigoBarra
CodigoBarra = Int((9999999999# + 1) * Rnd)
TxtCodProd = "789" & CodigoBarra

Boa noite,
você poderá consultar com um dlookup se o código gerado já existe no banco, caso exista, gere outro e faça o mesmo teste
até encontrar um que não tenha sido criado.

Ou poderá gerar o código sequencial, incrementando com base nos já existentes, mas nesse caso, imagino que se vc usar o código
de barrar digitado, que já tenha em algum produto, daí a sequencia quebra.

Olá Marcelo, obrigado pela força.
Fiz da seguinte forma e deu certo. Usei o comando Randomize que inicializa o gerador de números aleatórios e ficou da seguinte forma.

Código:

Randomize 'Inicialize o gerador de números aleatórios.
CodigoBarra = Int((9999999999# + 1) * Rnd)
TxtCodProd = "789" & CodigoBarra

Tinha esquecido de colocar como resolvido.