Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim sql As String MaBD = App.Path & "" & NomBaseMDB & ".mdb" sql = "select nom, prénom, age from personne where ... With Adodc1 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & "" .CommandType = adCmdText .RecordSource = sql .Refresh End With Adodc1.Refresh