الاخت زهرة المحترمة الاخوان محترفي الاكسس مساعدة في فهم كود

السلام عليكم جميعا

انا من المتابعين جدا لماتطرحه الاخت الفاضلة زهرة وبقية الاخوان المحترمون وقد استوقفني احد البرامج التي عملتها الاخت زهرة في مشاركة برامج اكسس عملية وهو برنامج login وقد استطعت فتحه والتعرف على كلمات السر لكني لم افهم ال module1 فهل من معين في فهم ها الكود وعلاقته بالبرنامج ( الملفlogin مرفق)

================================================

Option Compare Database

Option Explicit

Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

On Error GoTo Err_SetProperties

Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb

db.Properties(strPropName) = varPropValue

SetProperties = True

Set db = Nothing

Exit_SetProperties:

Exit Function

Err_SetProperties:

If Err = 3270 Then 'Property not found

Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)

db.Properties.Append prp

Resume Next

Else

SetProperties = False

MsgBox "SetProperties", Err.Number, Err.Description

Resume Exit_SetProperties

End If

End Function

login.rar