Automation vb6 et access

Bonjour,
Voila j'ai un petit souci, je commande access depuis vb (automation) afin de remplire des formulaires( et pas la base).
Quand je clique sur un bouton les données sont envoyées à access
Code:

1 2 3 4 5 6 MaDbMat = LitDansFichierIni("access", "Rk1", App.Path + "\config.ini") Set Mesforms = New Access.Application Mesforms.OpenCurrentDatabase MaDbMat, False Mesforms.Visible = True Mesforms.DoCmd.OpenForm "Dalia+", acNormal, , , acFormEdit, acWindowNormal, exge1 Mesforms.DoCmd.Maximize
.
Par contre si access est demarré alors il me l'ouvre une seconde fois.
Comment faire pour que lorsque je clique su mon bouton il ne m'ouvre pas une seconde fois access?
Merci

Quelque chose du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim appACCESS As Access.Application
Private Sub Command1_Click()
  InitACCESS
End Sub
 
Private Sub InitACCESS()
  On Error Resume Next
  Set appACCESS = GetObject(, "ACCESS.Application")
  If Err Then
    Set appACCESS = CreateObject("ACCESS.Application")
  End If
  appACCESS.Visible = True
End Sub

Merci :king: