Ribbon Busqueda

[caritaje]

Hola a todos!!

He estado trabajando en un grupo de mi cinta de opciones sobre una busqueda de cada formulario, el campo es el mismo en todos los formulario (esto para facilitarme la busqueda) pero no consigo poder hacer la consulta,éste es mi codigo

Public Sub OnChangeRecord(ctl As IRibbonControl, Text)

Dim rs As DAO.Recordset
Dim strCriterio As String
Dim f As Form

Set f = Screen.ActiveForm

strCriterio = "[UbicacionTecnica] = '" & (ctl.Id = "txtBusqueda") & " ' "
Set rs = f.RecordsetClone

rs.FindFirst (strCriterio)

If rs.NoMatch Then
MsgBox "Verifique Su Escritura", vbInformation + vbOKOnly, "UT No Encontrada"
Else
f.Bookmark = rs.Bookmark
End If

rs.Clone
Set rs = Nothing


End Sub

Y hasta ahora solo consigo que me mande el msj de registro no encontrado, espero puedan ayudarme con este problema..