I'm not sure if this is what you are looking for, but the following code is from the help file "Startup Properties Example"<br><br><br>****Begin Code*****<br>Sub SetStartupProperties()<br> ChangeProperty "StartupForm", dbText, "Customers"<br> ChangeProperty "StartupShowDBWindow", dbBoolean, False<br> ChangeProperty "StartupShowStatusBar", dbBoolean, False<br> ChangeProperty "AllowBuiltinToolbars", dbBoolean, False<br> ChangeProperty "AllowFullMenus", dbBoolean, True<br> ChangeProperty "AllowBreakIntoCode", dbBoolean, False<br> ChangeProperty "AllowSpecialKeys", dbBoolean, True<br> ChangeProperty "AllowBypassKey", dbBoolean, True<br><br>End Sub<br><br>Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer<br> Dim dbs As Database, prp As Property<br> Const conPropNotFoundError = 3270<br><br> Set dbs = CurrentDb<br> On Error GoTo Change_Err<br> dbs.Properties(strPropName) = varPropValue<br> ChangeProperty = True<br><br>Change_Bye:<br> Exit Function<br><br>Change_Err:<br> If Err = conPropNotFoundError Then ' Property not found.<br> Set prp = dbs.CreateProperty(strPropName, _<br><br>varPropType, varPropValue)<br> dbs.Properties.Append prp<br> Resume Next<br> Else<br> ' Unknown error.<br> ChangeProperty = False<br> Resume Change_Bye<br> End If<br>End Function<br><br>*****End Code****<br><br>Good luck<br><br>Kathryn