Sub EnumDBProperties()
Dim pty As Property
Dim strTemp As String
On Error Resume Next
For Each pty In CurrentDb.Properties
strTemp = pty.Name & ": "
strTemp = strTemp & pty.Value
Debug.Print strTemp
Next
End Sub