Sub test()
Dim rs As ADODB.Recordset
Dim cN As ADODB.Connection
Set cN = New ADODB.Connection
cN.ConnectionString = "Provider=SQLOLEDB;Data Source=nom_serveur;Initial Catalog=nom_de_ma_base; User ID=monID;Password=mdp;"
cN.Open
dbPath = Path
rs.Open ("select * from ..), cN
End Sub