Private Sub Commande10_Click()
'ouvre le fichier avec la securité choisie
On Error GoTo err
Dim fichier As String
Dim VDb As DAO.Database
Dim chaine As String
Dim VWK As DAO.Workspace
Dim dbe As DBEngine
Dim FichierMDW As String
If Len(TFichier) > 0 Then
 
  fichier = TFichier
  'prépare l'espace de travail
  If ListeSecu.ListIndex = 0 Or ListeSecu.ListIndex = 2 Then
    Set VWK = Workspaces(0)
  Else
    FichierMDW = OuvrirUnFichier(Me.Hwnd, _
    "Selectionner un fichier de groupe de travail", 1, _
    "Fichier mdw", "mdw")
    If FichierMDW = "" Then
      Exit Sub
    Else
      Set dbe = New DBEngine
      dbe.SystemDB = FichierMDW
      Set VWK = dbe.CreateWorkspace(Format(Now(), _
        "yyyymmddhhnnss"), TUtilisateur, TMDP, dbUseJet)
    End If
  End If
  'Ouvre la base de données
  If ListeSecu.ListIndex = 2 Or ListeSecu.ListIndex = 3 Then
    Set VDb = VWK.OpenDatabase(fichier, False, False, _
    "MS Access;PWD=" & TAdmin)
  Else
    Set VDb = VWK.OpenDatabase(fichier)
  End If
Else
  MsgBox "Vous devez selectionner un fichier", _
   vbExclamation, "Saisie du fichier"
End If
Exit Sub
err:
MsgBox "Impossible de se connecter à la base de données. " & _
  "Vérifier le chemin d'accès et les informations " & _
  "d'authentification", vbCritical, "Erreur"
End Sub

Private Sub Form_Load()
'Vide les controles
Dim t As Control
For Each t In Me.Controls
    If TypeOf t Is TextBox Then
        t = ""
        If t.Name <> "TFichier" Then t.Enabled = False
    End If
Next t
ListeSecu = "Aucune"
End Sub

Private Sub Commande3_Click()
Dim Chemin As String
Chemin = OuvrirUnFichier(Me.Hwnd, _
  "Selectionner une base de données Access", _
  1, "Fichiers Access", "mdb")
If Chemin <> "" Then
    Me.TFichier = Chemin
End If
End Sub