Ola pessoal, Ajudem-me por favor.

Private Sub cmdLocalizarNomeDoContato_Click()
Dim rst As Recordset, rst2 As Recordset, strCritério As String, strCritério2 As String
strCritério = "[NUM_TUBO] Like '*" & LOC_TUBO & "*'"
strCritério2 = "[LADO] Like '*" & LOC_LADO & "*'"

Set rst = Me.RecordsetClone
set rst2 = Me.RecordsetClone

rst.FindFirst strCritério
rst2.FindFirst strCritério2

If (rst.NoMatch)OR (rst2.NoMatch) Then
MsgBox "Nenhuma entrada encontrada"
Else
Me.Bookmark = rst.Bookmark
Me.Bookmark = rst2.Bookmark
End If

End Sub

Esta localizando apenas pelo segundo campo. Como é que faço para que ele localize pelo primeiro e segundo?

O que estou fazendo errado?

[ 13-08-2002: Mensagem editada por: Hubner ]

[ 13-08-2002: Mensagem editada por: Hubner ]

Veja a solução discutida na mensagem abaixo:
http://www.forumaccess.com/gd/ultimatebb.cgi?ubb=get_topic&f=1&t=011654