Usalo así:
Dim cBuscar As String
cBuscar = "Id_Cliente like '" & text1.text & "'" ' Aquí va una comilla simple encerrada entre dos comillas dobles, lo mismo que detrás de like debe ir una comilla simple precediendo a la doble...
Clientes.Recordset.Findfirst (cBuscar)
y seguro que te funcionará...
