[Resolvido]Abrir formulário de usuario em front-end

Private Sub SeuBotão_Click()
Dim DBPath As String
    Dim appAccess As Object
    Set appAccess = CreateObject("Access.Application")
    DBPath = "c:\teste.accdb"
    appAccess.OpenCurrentDatabase DBPath
    appAccess.DoCmd.OpenForm "SeuFormulario"
    appAccess.Visible = True
    'para encerrar o primeiro banco
    'DoCmd.Quit
End Sub

Public Sub fncAbreFormExterno()
Dim app As Access.Application
Dim bd As DAO.Database
On Error Resume Next
'-------------------------------------------------------------------------
'tenta abrir no modo exclusivo.  Se não conseguir é porque já está aberto
'-------------------------------------------------------------------------
Set bd = OpenDatabase("c:\suaPasta\seuBd.accdb", True, False)
bd.Close: Set bd = Nothing

'-----------------------------------------------------------
'Se erro diferente de zero significa que BD já está aberto
'-----------------------------------------------------------
If Err.Number <> 0 Then
    '---------------------------------------
    'Acessa o banco de dados
    '------------------------------------------
    Set app = GetObject("c:\suaPasta\seuBd.accdb")
    '------------------------------------
    'Abre o formulário
    '------------------------------------
    app.DoCmd.OpenForm "NomeDoFormulário"
End If
Set app = Nothing
end sub


Sucesso!