Set objProp = Application.CurrentDb.CreateProperty("StartupShowDBWindow", 1, False)
Application.CurrentDb.Properties.Append (objProp)
CreateProperty はDAO のメソッドで、2番目の引数のタイプも DAO の仕様にのっとって指定する必要があります。True・False は、1です。これを調べるには、DAOの仕様を調べる必要がありますが、とりあえず以下のコードで推測できます
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