Public Sub прок()
Dim strСообщение As String
Dim prp As Property
'Dim db As Database
'Set db = CurrentDb
On Error Resume Next
    For Each prp In CurrentDb.Properties
        strСообщение = prp.Name
        strСообщение = strСообщение & ":* " & prp.Value
        Debug.Print strСообщение
    Next prp
End Sub