Private Function getNID20(lNid_proc As Long) As Long
Dim lRet As Long
'Dim flt As New MainIF.General_Filter
'Dim r As ADODB.Recordset
Const def_sProcID = "getNID20"

 '   flt.AddField "NID_Proc", CStr(lNid_proc)

'    Set r = Obj_Reg_Ftch.GetData(flt)
'    If RecordCount(r) > 0 Then
'        lRet = gs_cNum(r!NID_20_REG) + 1
'    End If

    'ultima spiaggia
    If lRet = 0 Then
        lRet = Obj_GEN_Indici_Mdfr.GetNewIndex(DBLink & "_NID_20_Reg")
    End If
    getNID20 = lRet

End Function

Fletto i muscoli e sono nel vuoto.