请教一下：vb+ado+access的连接问题！

Question

我刚学用vb的数据库编程，对这个问题很棘手，望大家帮忙一下，
谢先了！

Answer 1

Dim tmpac As New ADODB.Connection
dim tmprs as new adodb.recordset
With ac_Print
   If ac_Print.State = adStateOpen Then ac_Print.Close
   .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Mode=ReadWrite;Persist Security Info=False"
   .Open
End WithIf tmprs.State = adStateOpen Then tmprs.Close
tmprs.Open "select * from tablename", tmpac, adOpenKeyset, adLockReadOnly