Utilize

 

amigo o inertbase nao aceito este procedimento acima, será que tem outra forma para filtrar só um registro?

Caro jongle ,

O interbase aceita o comando "MAX"  sim , utilizo nos meus sistemas assim :

        strSQL = ""
        strSQL = strSQL & "Select Max(Pessoas.CodigoDaPessoa) as MaxCodigoCliente From Pessoas"
        If tblAux.State = adStateOpen Then tblAux.Close
        tblAux.CursorLocation = adUseClient
        tblAux.Open strSQL, adoBanco, adOpenKeyset, adLockOptimistic
        If Not tblAux.EOF() And Not IsNull(tblAux!MaxCodigoCliente) Then
            txtCodigoPessoa.Text = (tblAux!MaxCodigoCliente + 1)
        Else
            txtCodigoPessoa.Text = 1
        End If
        tblAux.Close