datesourse

点击属性,点击生成字符串,编译,输入名称,选择数据库,返回,选择recordsource,refresh,完成.

Public dbBasic As ADODB.Connection
Public recCommSet As ADODB.Recordset

Set dbBasic = New ADODB.Connection
Set dbBasic = New ADODB.Connection
dbBasic.CursorLocation = adUseClient
dbBasic.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\variable.mdb;"

Set recCommSet = New ADODB.Recordset
recCommSet.Open "select * from  参数 order by 序号,时间,频率,相隔毫秒数", dbBasic, adOpenStatic, adLockOptimistic