我想不可以吧,用Data控件只能这样,例如:
Dim myworkspace As Workspace
Set myworkspace = DBEngine.CreateWorkspace("myworkspace", "admin", " ", dbUseJet)
Dim data1 As Database
Set data1 = DBEngine.myworkspace(0).OpenDatabase("D:\Program Files\Microsoft Visual Studio\VB98\database\db1.mdb",False,False)