[VB6] VB & Maschere Access

[xonica]

ho un database access 2002 con una maschera all'interno "m_01_Principale".
Vorrei fare eseguire questa maschera!

Nel form di VB ho un bottone btnOpen con questo codice:

Private Sub btnOpen_Click()
    Dim strAccessReport As String
    Dim strAccessPath As String
    
    Dim appAccess As Access.Application
    Set appAccess = New Access.Application
    
    appAccess.OpenCurrentDatabase (App.Path & "\db.mdb")

    appAccess.DoCmd.OpenForm ("m_01_Principale")

    appAccess.Quit
    Set appAccess = Nothing
End Sub

Non mi genera errori ma non apre nulla!!!!