[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!!!!

[Giulio C.]

Ciao.
Premesso che gestisco in modo diverso i database con VB6, non mi convincono "ad occhio" queste due istruzioni:

appAccess.Quit
Set appAccess = Nothing

Sperando di non dire "cappellate", mi dai l'impressione che chiudi subito cià che hai appena aperto...