[Resolvido]Campo e-mail repetindo

Boa Tarde Pessoal!!
Venho Pedir a ajuda de Vocês porque estou com o seguinte problema!
Tenho uma tabela [Clientes] com Mais de 20 Mil Registros,o Campo (E-mail) desta tabela esta com todos os Emails (registros) dessa forma:  teste@teste.com.br#http://teste@teste.com.br#
Ou seja vem o E-mail normal e em seguida vem esse "#http://" repetindo o E-mail...

Gostaria de Saber se tem como Fazer um evento de loop que Delete tudo que estiver após o #(jogo da velha) de cada E-mail pois Fazer isso "Na unha" levaria uma eternidade.

desde já Obrigado!!

Olá, coloque a função abaixo num modulo:

Código:

Function fncAjustaEmail(strEmail As String)
    fncAjustaEmail = Left(strEmail, InStr(strEmail, "#") - 1)
End Function

Para chamar:

fncAjustaEmail(NomeDoCampo)

Pode fazer uma consulta atualizar, utilizando a função.

Abraço