Bonjour à tous,

après deux jours de galère, plusieurs recherches infructueuses, je me permet de poser la question.

Je réalise une interface VB travaillant avec une base Access.

Dans "Projet>Référence", j'ai coché "Microsoft ActiveX Data Objects 2.8 Library"

Voici ma partie de code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Sub Btn_Connect_Click()
Dim BD_Connect As ADODB.Connection 'Variable de connection à la BD
Set BD_Connect = New ADODB.Connection
 
'Déclaration de la variable de connexion
Dim Db_Path As String
Db_Path = App.Path & "\Bdd\Bdd_Stock.mdb"
'Définition du pilote de connexion
BD_Connect.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
BD_Connect.ConnectionString = Db_Path
'Ouverture de la base de données
BD_Connect.Open
 
Dim rst As ADODB.Recordset
Dim Sql_Request As String
Set rst = New ADODB.Recordset
Sql_Request = "SELECT * FROM Local"
rst.Open Sql_Request, BD_Connect
 
While Not rst.EOF
 Lst_Tables.AddItem rst("Local.Loc_Name")
Wend
rst.Close
End Sub
J'ai le message d'erreur suivant:

La méthode 'Open' de l'objet '_Recordeset' a échoué


J'ai essayé différente version de la comme rst.Open mais toujours la même erreur.

Merci de votre aide