Podes usar estas 2 teniendo el valor en la variable buscar :
1) Set rst = dbs.OpenRecordset("SELECT * FROM Clientes WHERE Left(Nombre,Len('" & buscar & "'='" & buscar & "')")
2) Set rst = dbs.OpenRecordset("SELECT Nombre FROM Clientes WHERE Nombre Like '" & buscar & "*' Or Nombre Like '" & buscar & "*'")
bye
