Holas..
Creo que se a lo que te refieres, (en este minuto estoy en un equipo sin Visual, Asi que voy a tratar de ser lo mas claro posible)
1º de veras trabajar en el evento Change, Seria mas o menos asi.
estas deveran ser tus variables definidas en un Modulo
Global Rs1 As Recordset
Global Con As Connection
Global sPathBase As String
y defines estos Procedimientos(en el modulo)
Sub Conectar()
sPathBase = app.path & "\Data1.mdb"
Set Con = New Connection
Set Rs1 = New Recordset
With Con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathBase
.Open
End With
End Sub
Sub Desconectar()
On Local Error Resume Next
Con.Close
Set Con = Nothing
Rs1.Close
Set Rs1 = Nothing
End Sub
2º Ahora nos vamos al codigo del Boton
Conectar
Rs1.Open "SELECT Nombre,Ciudad,Pais FROM Empleados WHERE Nombre LIKE '%" & Text1.Text & "%'", Con, adOpenDynamic, adLockBatchOptimistic
'Aca dentro del Rs1 esta el resultado de la consulta
Desconectar
Espero te Sirva