Set Con = New ADODB.Connection
Con.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\soft.mdb;"
Con.CursorLocation = adUseClient
Con.Open
Set RsXX = New ADODB.Recordset
RsXX.CursorLocation = adUseClient
RsXX.CursorType = adOpenStatic
RsXX.LockType = adLockPessimistic
RsXX.Source = "select * from 表"
RsXX.Open , Con
Con.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\soft.mdb;"
Con.CursorLocation = adUseClient
Con.Open
Set RsXX = New ADODB.Recordset
RsXX.CursorLocation = adUseClient
RsXX.CursorType = adOpenStatic
RsXX.LockType = adLockPessimistic
RsXX.Source = "select * from 表"
RsXX.Open , Con
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货