Hola, de acuerdo a lo que me indicó angelescj probé del siguiente modo,
Dim NumRut As String
Dim Buscar As String
NumRut = Val(Combo1.Text)
Buscar = "rut='" & NumRut & "'"
Data2.Refresh
Data2.Recordset.FindFirst Buscar
If Data2.Recordset.NoMatch Then
MsgBox ("No encuentra registro")
Else
* Label4 = tabla1("nombre")
End If
* Sin embargo, la ejecución se detiene en esta línea y un mensaje me indica "no existe registro activo" y evidentemente, la sentencia NoMatch es falsa.