Set Db = New ADODB.Connection Db.ConnectionString = "Provider= SQLOLEDB;Data Source= [Nom et port du serveur];User ID= [Nom utilisateur];Password=[mot de pass];" Db.Open Db.Execute "USE [NOm de la db]" Set vo_info = New ADODB.Recordset vo_info.Open "select * from [Nom de la table], Db, adOpenStatic, adLockOptimistic 'fermeture vo_info.close Db.close set vo_info = nothing set Db = nothing