Preencher campo atraves de uma procura

[Neowarp]

Sou muito básico em VBA e estou a tentar criar uma pesquisa para preencher um campo indo buscar o que pretendo a outro. O que escrevi está assim:

Private Sub formando_n_doc_LostFocus()
Set formando = CurrentDb.OpenRecordset("formando")

Dim controlo As Integer

With formando

Do Until .EOF
.Edit

If Me.formando_n_doc = formando.formando_n_doc Then

Me.formando_id = formando.formando_id
Me.formando_nome = formando.formando_nome

controlo = 1

End If


.Update
.MoveNext

Loop

If controlo = 0 Then

Me.formando_nome = ("O Formando não existe!")
Me.formando_id = ""
Me.formando_n_doc = ""
End If
End With

End Sub

Está a funcionar. O meu problema é que sendo uma base de dados dividida e que se encontra em rede para ser utilizada por vários utilizadores, sempre que está mais do que um utilizador demora perto de um minuto a mostrar os resultados.

Existe alguma forma de fazer com que funcione mais rápido?

Obrigado ...

Editado Dezembro 24, 2009 por kuroi
Adicionar tag CODE