Public Sub SetStartupOptions (propname As String, _When calling the procedure, be sure to select the right boot option. For example:
propdb As Variant, prop As Variant)
'Set passed startup property.
Dim dbs As Object
Dim prp As Object
Set dbs = CurrentDb
On Error Resume Next
dbs.Properties (propname) = prop
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty (propname, _
propdb, prop)
dbs.Properties.Append prp
End If
Set dbs = Nothing
Set prp = Nothing
End Sub