This should give you most of the things you need:
Function StartupProps(bSet As Boolean)
'NOTE: For Access 2002, must to do this to prevent Access showing the db
window (kb 313915):
' Application.SetOption("ShowWindowsInTaskbar"), false
Dim db As DAO.Database
Dim strDB As String
Dim strPrp As String
strDb = "C:\\MyFile.mdb"
Set db = OpenDatabase(strDB)
' Application.SetOption "Track Name AutoCorrect Info", False
' Application.SetOption "Perform Name AutoCorrect", False
' Application.SetOption "Log Name AutoCorrect Changes", False
' ChangeProperty db, "StartupForm", dbText, "Customers"
' ChangeProperty db, "StartupShowDBWindow", dbBoolean, False
' ChangeProperty db, "StartupShowStatusBar", dbBoolean, False
' ChangeProperty db, "AllowBuiltinToolbars", dbBoolean, False
' ChangeProperty db, "AllowBreakIntoCode", dbBoolean, False
' Call ChangeProperty(db, "AllowFullMenus", dbBoolean, bSet)
Call ChangeProperty(db, "AllowSpecialKeys", dbBoolean, bSet)
Call ChangeProperty(db, "AllowBypassKey", dbBoolean, bSet)
db.Close
Set db = Nothing
End Function
Function ChangeProperty(dbs As Database, strPropName As String, varPropType
As Variant, varPropValue As Variant) As Integer
Dim prp As Property
Const conPropNotFoundError = 3270
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Debug.Print strPropName & " is " & varPropValue
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function