O Access não suporta "limit 1" troque por top 1... Use as repostas colocadas pelo  DONKEY ou pelo THECRAZY.

sql = " select top 1 from [Base Dados de Produção] where [CPF/CNPJ]='" & txtcpf.Text  &  "*' order by [dataserviço]"

 

Ah e cuidado com essa barra no campo CPF/CNPJ...

tenta assim

select min(data),campo1,campo2,campo3

from tabela

where cpf=123456787901

Group by campo1,campo3,campo3