hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & Upper(textbuscar.text) & "' ")
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
he puesto el Upper por que estan guardados en mayusculas, y si lo escribes en minusculas no lo encuentra.
para resolverlo puedes hacer esto:
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & Upper(textbuscar.text) & "' ")
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
IF hresultado.Available = FALSE THEN
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & textbuscar.text & "' ")
Data1.filter = " Apellidos= '" & textbuscar.text & "'"
data1.Refresh
grid.Refresh
ELSE
END IF
así encuentra en mayúsculas y en minúsculas.
supongo que habra otra manera de hacerlo pero yo no la se.