Max SQL - VBWEB

Se você tem um campo autonumerável, pode usar:
Public Function fGrava_Busca()  'OK
    'grava e busca o último registro
    'Tabela Codigo -> Trimestre, Ano, Grupo e Ocorrencia (Cod - fornecido pelo BD)
    With DataEnv
    cSQL = "INSERT INTO Codigo (Trimestre, Ano, Grupo, SubGrupo, Ocorrencia) VALUES (" & tpDados.vTrim & ", " & _
            tpDados.vAno & ", '" & tpDados.vGrupo & "', '" & tpDados.vGrCod & "', '" & tpDados.vOcorrencia & "')"
    'comando para gravação
        .ConectaBD.Execute cSQL, , adCmdText
    'COMANDO PARA PEGAR O VLR. DO COD
        .rsCodigo.Open ("SELECT @@IDENTITY")
        tpDados.vCod = .rsCodigo(0)
        .rsCodigo.Close
    End With
End Function

Se não, pode utilizar:
Public Function BuscaAnterior()

Dim cSQLBA1 As String

cSQLBA1 = "SELECT TOP 1 * from Geral ORDER BY AProtocolo desc, NProtocolo desc"
    Dados.rsGeral.Open cSQLBA1, , adOpenDynamic, adLockOptimistic

    If IsNull(Dados.rsGeral!NProtocolo) Then
        NAnterior = 0
    Else
        NAnterior = Dados.rsGeral!NProtocolo
    End If

    Dados.rsGeral.Close

    frmPrincipal.lblNProtocolo.Caption = NAnterior
    NAnterior = (NAnterior + 1)
    frmPrincipal.lblNProtocolo.Caption = NAnterior

End Function

Boa sorte e t+