prueba esto:
Dim strsql, buscar As String
buscar = Text1.Text
strsql = "SELECT * FROM [Empresas]"
strsql = strsql & " WHERE [Compañía] LIKE '" & buscar & "'"
Adodc1.RecordSource = strsql
Adodc1.Refresh
si no encuentra nada
If Adodc1.Recordset.EOF = True Then
tu codigo
text1.text = cuadro de texto para realizar la busqueda
Empresas = nombre de la tabla
Compañía = nombre de registro donde buscar
esto busca exactamente lo que pongas en el cuadro de texto LIKE '" & buscar & "'"
esto que empiezen LIKE '" & buscar & "%'"
esto que terminen LIKE '%" & buscar & "'"
esto que contengan LIKE '%" & buscar & "%'"
has referencia a dao 3.6