Dim ac_tmp As New ADODB.Connection
dim ar_tmp as new adodb.recordset
With ac_tmp
If ac_Print.State = adStateOpen Then ac_Print.Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
End With
if rs.state=adsstateopen then rs.close
rs.open "select * from 表名",ac_tmp,adopenkeyset,adlockreadonly