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