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