Set objProp = Application.CurrentDb.CreateProperty("StartupShowDBWindow", 1, False)
Application.CurrentDb.Properties.Append (objProp)

For I = 0 To Application.CurrentDb.Properties.Count - 1
	strData = Application.CurrentDb.Properties(I).Name
	strData = strData & "/" & Application.CurrentDb.Properties(I).Type
	On Error Resume Next
	strData = strData & "/" & Application.CurrentDb.Properties(I).Value
	If Err.Number <> 0 Then
		strData = strData & "/読出不可"
	End If
	On Error GoTo 0
	MsgBox (strData)
Next