Rocha,
Essa consulta eu fiz no ACCESS. Para Monta-la eu fui fazendo Passo a Passo.
Primeiro eu coloquei a Consulta Central, Depois adicionei a Consulta Principal 'em volta' da Central.
A consulta q fiz é essa. Tenta adaptar aí
SELECT Tab_Clie.Raso,
Consulta.Data
FROM Tab_Clie,
(SELECT Cliente.Clie,
MAX(Prc_Nfis.Emis) as Data
FROM Prc_Nfis,
Tab_Clie Cliente
WHERE Cliente.Clie = Prc_Nfis.Clie
GROUP BY Cliente.Clie) Consulta
WHERE Tab_Clie.Clie = Consulta.Clie
AND Tab_Clie.Baie LIKE '*Cent*'
Faça passo a passo na Consulta/SQL do Access tb, pq vc tem 2 FROM na sua Consulta, e fica + facil para saber onde é o Erro.
Se der certo no ACCESS (se vc estver utilizando uma Base de dados ACCESS, é claro), Tem que dar certo no VB, Independente da maneira em que vc conectou.