Lo que pasa es que se me paso y no te dije que en ves de utilisar el sinno de igual "=" debes utilisar el "like" para que sea una busqueda por palabras donde quieran que se encuentren en todo caso te envia el cursor a ese registro.
yo personalmente come te decia arriba lo aria en una consulta y solo me va dejando los registros que coinsidan con las palabras que dijites en el textbox
If txtTel1.Text <> "" Then
SQL = "%" & txtTel1.Text & "%"
AdoAgenda.RecordSource = "SELECT * From AGENDA_TELEFONICA WHERE Nombre_age like '" & Trim(SQL) & "' order by Cod_age Asc"
AdoAgenda.Refresh
End If
If txtTel1.Text = "" Then
AdoAgenda.RecordSource = "SELECT * From AGENDA_TELEFONICA order by Cod_age Asc"
AdoAgenda.Refresh
End If
no sep si le pones el like te funciona como lo tienes
Saludos...