For ADP:

Public Sub SetProperty( _
   ByVal strPropName As String, _
   ByVal varPropType_Bidon As Integer, _
   ByVal varPropValue As Variant)

   Const cProcedureName As String = "SetProperty"
   On Error GoTo Err_Handler

   Dim db As CurrentProject
   Set db = Application.CurrentProject

   ' Properties are string values.
   If (IsNull(varPropValue)) Then varPropValue = ""

   Dim i
   For i = 0 To db.Properties.Count - 1
       If (db.Properties(i).name = strPropName) Then
           db.Properties(strPropName).Value = varPropValue
           GoTo Exit_Sub
       End If
   Next

   db.Properties.Add strPropName, varPropValue

Exit_Sub:
   On Error GoTo 0
   Set db = Nothing
   Exit Sub

Err_Handler:

   ''''' Call LogError(Err.Number, Err.Description, cModuleName &
cProcedureName)
   Resume Exit_Sub

End Sub

   ' GetProperty(): returns TRUE if the property was already known; FALSE
otherwise.
   ' The value itself is passed by argument.

Public Function GetProperty( _
   ByVal strPropName As String, _
   ByRef strPropValue As Variant) As Boolean

   Const cProcedureName As String = "GetProperty"
   On Error GoTo Err_Handler

   Dim db As CurrentProject
   Set db = Application.CurrentProject

   Dim i
   For i = 0 To db.Properties.Count - 1
       If (db.Properties(i).name = strPropName) Then
           strPropValue = db.Properties(strPropName)
           GetProperty = True
           GoTo Exit_Function
       End If
   Next

   GetProperty = False

Exit_Function:
   On Error GoTo 0
   Set db = Nothing
   Exit Function

Err_Handler:
   GetProperty = False
   ''''' Call LogError(Err.Number, Err.Description, cModuleName &
cProcedureName)
   Resume Exit_Function

End Function