Dim bpDataBase As Database
Set bpSpace = CreateWorkspace("", "Admin", "")
'在工作空间中打开数据库文件
Set bpDataBase = bpSpace.OpenDatabase("E:\数据库.mdb")
Adodc1.RecordSource = "参数"
'用Datagrid 控件显示Adodc控件的数据
Set DataGrid1.DataSource = Adodc1
Dim rs As Recordset
Dim tl As TableDef
Set rs = bpDataBase.OpenRecordset("参数")
。。。
请大家提示,应该很简单,唉,没时间看了