dim con as ADODB.Connection dim res as ADODB.Recordset dim s_sql set con=New ADODB.Connection set res=New ADODB.Recordsetcon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\dbname.mdb";Persist Security Info=False"sql="select " & str_temp & " from tablename"res.open sql,con,3,3 res(str_temp) '既为你所需
dim con as ADODB.Connection
dim res as ADODB.Recordset
dim s_sql set con=New ADODB.Connection
set res=New ADODB.Recordsetcon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\dbname.mdb";Persist Security Info=False"sql="select " & str_temp & " from tablename"res.open sql,con,3,3
res(str_temp) '既为你所需