Sub Coonecting(Byval m As String) SQL=m Public Con As New ADODB.Connection Public Recor As New ADODB.Recordset Public SQL As String '*********** Ouvrir la connection************ Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\nom_dela_Bdd.Accdb" Recor.CursorLocation=adUseClient Recor.Open SQL,Con,adOpenDynamic,adLockOptimistic,adCmdText End sub