BONJOUR JE VOUDRAIS AFFICHER DES DONNEES DANS MON DATAGRID  
MAIS CA DONNE LE MESSAGE D'ERREUR SUIVANT
 
LA METHODE OPEN DE L'OBJET RECORDSET A ECHOUE
 
 
Private Sub b_chercher_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Integer
n = Val(InputBox("donnez le numero d'inventaire SVP!", "MAGASIN" ))
 
If IsNumeric(n) Then
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
   & "Data Source=MAGASIN.mdb;" _
   & "Persist Security Info=False"
   cn.Open
   rs.ActiveConnection = cn
   rs.Source = " SELECT Decharge.NInvo, Professeur.Nom, Decharge.DateSortie, Decharge.DateEntree, Materiel.REF, Decharge.Observation, Section.Libile " _
& " FROM [Section] INNER JOIN (Professeur INNER JOIN (Materiel INNER JOIN Decharge ON Materiel.NInvo = Decharge.NInvo) ON Professeur.CodeProf = Decharge.CodeProf) ON Section.CodeSec = Decharge.CodeSec" _
& " WHERE Decharge.NInvo =" + Str(n) + "  ,cn,adopendynamic"
   rs.Open
 Set DataGrid1.DataSource = rs
   rs.Close
   cn.Close
 End If[/g]
End Sub
 
 
MERCI DE VOTRE AIDE