DataEnvironment问题

Question

想打印报表，所以用了DataEnvironment控件，但这控件如何使用代码来设置与SQL的连接？ 右击属性里设置可以，但是我想通过代码来设置，请指教！！！

Answer 1

linkcn = "Provider=sqloledb;Data Source=IP;Initial Catalog=zz_ic;User Id=sa;Password=123"Private Sub DataEnvironment_Initialize()
    DataEnvironment1.Connection1.ConnectionTimeout = 30
    DataEnvironment1.Connection1.ConnectionString = linkcn
    DataEnvironment1.Connection1.Open linkcn
End Sub

Answer 2

Private Sub DataEnvironment_Initialize()
Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "xxx.MDB;Persist Security Info=False"
End Sub