How do I declare a database so can I get mdb startup property

Set prp = dbs.CreateProperty("StartupForm", 10, "StartUp", True)
dbs.Properties.Append prp

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&

Sub DoStuff()
Dim objAccess As Object
Dim myShell As string
myShell = Chr(34) & strAccessExe_Path & Chr(34) & " " & _
          Chr(34) & strMDB_Path & Chr(34) & " /wrkgrp " & _
          Chr(34) & strMDW_Path & Chr(34) & " /user " & _
          Chr(34) & strUser & Chr(34) & " /pwd " & _
          Chr(34) & strPassword & Chr(34) & " /x " & _
          Chr(34) & strMAcroName & Chr(34)
'If access is running, close it and shell
Set objAccess = GetObject(, "Access.Application") 
If Err.Number=0 Then
   objAccess.Quit
   Set objAccess = Nothing
   RunUntilFinished (myShell)
Else
   RunUntilFinished (myShell)
End If
objAccess.CloseCurrentDatabase
objAccess.Quit
Set objAccess = Nothing

End Sub

Public Sub RunUntilFinished(ByVal sApp As String)
'This is from Tek-Tips.com 
    Dim lProcID As Long, hProc As Long

    lProcID = Shell(sApp)
    On Error GoTo 0

    DoEvents
    hProc = OpenProcess(SYNCHRONIZE, 0, lProcID)
    If hProc <> 0 Then
        WaitForSingleObject hProc, INFINITE
        CloseHandle hProc
    End If
End Sub

Dim dbs As DAO.Database
Dim prp As DAO.Property
Dim strPropName As String
Dim strUser As String
Dim strPassword As String
Dim x As String

Dim db As String, workgrp As String
Dim user As String, password As String
' Use the path and name of a secured MDB on your system
    db = "C:\TestSecured.mdb"
' This is the default workgroup and login details
    workgrp = "C:\Secured.mdw"
    user = "FullData"      ' Use a valid username
    password = "FullData"     ' and correct password
' Connection String w/o program executable... 
x = Chr(34) & db & Chr(34) & " /nostartup /user " & Chr(34) & user & Chr(34) & _
    " /pwd " & Chr(34) & password & Chr(34) & " /wrkgrp " & Chr(34) & workgrp & Chr(34)

Debug.Print x

 Set dbs = OpenDatabase(x)

    strPropName = "StartupForm"
    prp = dbs.Properties(strPropName)
    
    If prp <> "Form.frm_Register" Then
        MsgBox "Database StartUp Properties Not Set!"
    ' Add code to change db startup property
    'Load db to set startup properties.
    Else
    'Create Setup File
    
    'Rar and copy to website update folder
    
    End If
    
 dbs.Close
 Set dbs = Nothing

Public Function OpenSecureDB(ByVal strDatabasePath As String, ByVal strMDW_Path As String, ByVal strUserName As String, ByVal strPassword As String) As DAO.Database
'Supplied By Ed2020 @ TekTips
'============================================================================
'Useage: Place this code in form event
'Requires a Reference to DAO 3.6
'Dim db As DAO.Database
'Set db = OpenSecureDB("C:\TestSecured.mdb", "C:\Secured.mdw", "MyLogin", "MyPassword")
'============================================================================
Dim MyDBE As DAO.PrivDBEngine
Dim wrkJet As DAO.Workspace

    Set MyDBE = New PrivDBEngine
        MyDBE.SystemDB = strMDW_Path
        MyDBE.DefaultUser = strUserName
        MyDBE.DefaultPassword = strPassword
    Set wrkJet = MyDBE.Workspaces(0)
    Set OpenSecureDB = wrkJet.OpenDatabase(strDatabasePath)
    
End Function


Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim db As DAO.Database
Dim prp As DAO.Property

    Set db = OpenSecureDB("C:\TestSecured.mdb", "C:\Secured.mdw", "Carl", "letmein")
    
    Const conPropNotFoundError = 3270

    On Error GoTo Change_Err
    db.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then  ' Property not found.
        Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
        db.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Dim db As DAO.Database
Dim strPropName As String
Dim strStartUp As String

    Set db = OpenSecureDB("C:\TestSecured.mdb", "C:\Secured.mdw", "Carl", "letmein")

    With db.Properties
      strPropName = "StartupForm"
      strStartUp = db.Properties(strPropName)
    End With
    
    If strStartUp <> "Form.frm_Register" Then
    MsgBox "Database StartUp Properties Not Set!"
    'Change db startup properties
    With db.Properties
        ChangeProperty "StartupForm", dbText, "frm_Register"
        ChangeProperty "StartupShowDBWindow", dbBoolean, False
        ChangeProperty "StartupShowStatusBar", dbBoolean, False
        ChangeProperty "StartupMenuBar", dbBoolean, False
        ChangeProperty "StartupShortcutMenuBar", dbBoolean, False
        ChangeProperty "AllowFullMenus", dbBoolean, False
        ChangeProperty "AllowShortcutMenus", dbBoolean, False
        ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
        ChangeProperty "AllowToolbarChanges", dbBoolean, False
        ChangeProperty "AllowBreakIntoCode", dbBoolean, False
        ChangeProperty "AllowSpecialKeys", dbBoolean, False
        ChangeProperty "AllowBypassKey", dbBoolean, False
    End With
    MsgBox "Startup Properties Set!", vbInformation, "Database Locked"
    Else
    'Create Setup File
    'Rar and copy to website update folder
    End If
    
db.Close
Set db = Nothing