[Resolvido]Abrir formulário a partir de uma função

Olá, bom dia e antecipadamente agradeço pela ajuda.
Duas dúvidas:
1º. É possível utilizar a função abaixo - copiada aqui do fórum - no Access 2019?
2º. Onde inserir o comando DoCmd.OpenForm "NomeDoFormulario" NO código desta função?

Public Function RepararCompactar() 'Comandos ao clicar um botão para reparo e compactação do banco de dados
Dim P As String
P = Access.DBEngine.IniPath
If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
'MsgBox "Office 2016"
SendKeys "%(Tm)", False
ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
'MsgBox "Office 2013"
SendKeys "%(Tm)", False
ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
'MsgBox "Office 2010"
SendKeys "%(Tc)", False
ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
'MsgBox "Office 2007"
SendKeys "%(AgO)", False
Else
MsgBox "Adicione este caminho no código " & P
End If

End Function

Boa tarde

Código:

Public Function RepararCompactar() 'Comandos ao clicar um botão para reparo e compactação do banco de dados
Dim P As String
P = Access.DBEngine.IniPath
   If P = "Software\Microsoft\Office\16.0\Access\Access Connectivity Engine" Then
          MsgBox "Office 2016"
          DoCmd.OpenForm "SEU FORMULARIO"
     SendKeys "%(Tm)", False
ElseIf P = "Software\Microsoft\Office\15.0\Access\Access Connectivity Engine" Then
      MsgBox "Office 2013"
       DoCmd.OpenForm "SEU FORMULARIO"
      SendKeys "%(Tm)", False
ElseIf P = "Software\Microsoft\Office\14.0\Access\Access Connectivity Engine" Then
       MsgBox "Office 2010"
       DoCmd.OpenForm "SEU FORMULARIO"
       SendKeys "%(Tc)", False
ElseIf P = "Software\Microsoft\Office\12.0\Access\Access Connectivity Engine" Then
       MsgBox "Office 2007"
       DoCmd.OpenForm "SEU FORMULARIO"
       SendKeys "%(AgO)", False
Else
     MsgBox "Adicione este caminho no código " & P
End If

End Function

Código:

Private Sub Comando0_Click()
    RepararCompactar
End Sub

Essa função está em um botão e necessito que ao final da execução, o fomulário de login e senha seja aberto em seguida. A dúvida está em como posso inserir esse código dentro da função!

Em opções do access no menu arquivo (ou botão office no 2007), nas informações do banco de dados atual, defina o formulário de inicialização.

Isso! Impressionante como não imaginei essa solução. É que para quem não tem "muita experiência" no Access ou VBA, toda situação que surge parece complicada. Agradeço a colaboração todos.

olá Wianfe...

Faltou o resolvido...

Grato.

Obrigado a todos!