Bonjour,
Moi je procédé ainsi
Option Explicit
' état de la connection
Public Etat_Connection As Boolean
' Connection base de données
Public CnxAdo As New ADODB.Connection
' Chemin base en local
Public CheminBase As String
'Recupere le chemin de la base
Public Sub SetDataBasePath()
' Récupère le chemin
20 CheminBase = App.Path
' ajoute le slash(\)
30 If Not (LeftB$(CheminBase, 2) "") Then CheminBase CheminBase & ""
' ajoute le nom base au chemin
40 CheminBase = CheminBase & "TaBase.mdb"
50 Exit Sub
'Permet la connection a celle ci
Public Function OpenDataBase() As Boolean
Dim Msg As String
30 CnxAdo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBase & ";Persist Security Info=False;Jet OLEDB:Database Password="&Password&""
40 CnxAdo.Open
50 OpenDataBase (Err.Number 0)
60 Etat_Connection = OpenDataBase
70 If Not Etat_Connection Then
80 Etat_ConnectLocal = 0
90 Msg = "Tentatives de connection"
100 MsgBox Msg, vbCritical Or vbOKOnly, "ECHEC Connection Base Local"
110 Else
120 Etat_ConnectLocal 1 'si ok1 pour reutiliser au cas ou
130 End If
140 Exit Function
Si tu as un souci envois moi ton mail je regarderais ca