No das mucha información, pero si el segundo campo está en la misma tabla o consulta que basas tu formulario.
En el evento después de actualizar de tu cuadro de texto, que lo vamos a llamar Primercampo y suponiendo que el dato que va a buscar es numérico:
Private Sub PrimerCampo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NombreenlatablaPrimerCampo] = " & Str(Nz(Me![PrimerCampo], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Si es texto:
Private Sub PrimerCampo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NombreenlatablaPrimerCampo] = '" & Me![PrimerCampo] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Marcos