DataEnvironment1.Connection1.Provider = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=monUser;Initial Catalog=maDB;Data Source=maMachine"
DataEnvironment1.Connection1.Properties("Password") = "toto"
Private Sub DataEnvironment_Initialize() DataEnvironment.Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\BaseDonnee.mdb;Persist Security Info=False;" End Sub