[Resolvido]Alterar para busca dupla

Bom dia a todos, estou com um problema em um cogido porque me ocorreu a necessidade de fazer uma busca dupla neste codigo mas nao consigo acertar a escrita do codigo alguem pode me ajudar. Segue o código:

Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.SeuCampoNoForm.Value
stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
lote.setfocus
End Sub

Boa tarde e bem-vindo ao fórum

Movi-lhe a dúvida para esta sala por se tratar de código, mesmo trabalhando com formulário

Sobre a sua dúvida, coloque o código no acontecimento AposActualizar do controlo

ok, obrigado eu tentei assim ele encontra os valores, mas nao escreve na tela, so depois que eu aperto o F5 ele escreve no formulario.

Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.LOTE.Value & Me.CLAVE.Value
stLinkCriteria = "([LOTE] = '" & Busca & "') and ([CLAVE] = '" & Busca & "')"
If DCount("LOTE", "TB_INGRESO_ESTOQUE", "LOTE =" & Me!LOTE1 & " and CLAVE=#" & Me!CLAVE1 & "#") > 0 Then
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing

coloque, no final do código
refresh

Nao deu certo estou refazendo o codigo, vou tentar de outra forma obrigado.