vb,access,使用了DataEnvironment和DataReport初始化为:
Private Sub DataEnvironment_Initialize()
Dim strconn As String
strconn = " Provider=MSDASQL.1;Persist Security Info=False;Data Source=t1;Initial Catalog=" & App.Path & "\DATA\NUMBER"
DataEnvironment1.Connection1.ConnectionString = strconn
End Sub