PEGAR O ÊLTIMO REGISTRO PELA DATA

	vSQL = [Ô][Ô]
	vSQL = vSQL & [Ô]SELECT TBL.Num_ContratoDB [Ô]
	vSQL = vSQL & [Ô]  FROM tblBanco AS TBL[Ô]
	vSQL = vSQL & [Ô]  WHERE TRIM(TBL.FormaDB) = [ô]CNH[ô] 
	vSQL = vSQL & [Ô]    AND TBL.DataDB IN (SELECT MAX(TBL1.DataDB) AS MaxDataDB FROM tblBanco AS TBL1 WHERE TRIM(TBL1.FormaDB) = [ô]CNH[ô])[Ô]
	vSQL = vSQL & [Ô]    GROUP BY TBL.Num_ContratoDB[Ô]

Citação:

:
M4R10,

Desculpe-me pela falha, faltou o DESC para ordernar de forma decrescente, no caso pelo maior código da sua tabela

Select TOP 1 Num_ContratoBD From tblBanco Where FormaBD=[ô]CNH[ô] ORDER BY CodigoBD [txt-color=#e80000]DESC[/txt-color];

Se você quiser ordernar pela data troque o campo CodigoDB pelo DataDB;