Dataforbindelse Access Excel lavet i vba modulet

Jeg skal i et vba modul have lagt koder der henter data fra Access
Det virker fint når jeg gør det manuelt ved at gå ind over DATA>Fra Access
Under forbindelser får jeg koderne nedenfor
Hvordan får jeg dem lagt i modulet:


Forbindelsesstreng:

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\jorgen\ERP\ERP.accdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False


Kommandotekst:

Gantt_Leverancer Forespørgsel