sql与access跨数据库查询

Question

代码如下： cn = "Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;User ID=sa;Initial Catalog=sss;Data Source=(local)" str3 = "SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'd:\a.mdb'; 'admin'; '', [aaa]) Rowset_1 WHERE (bbb IN (SELECT bbb FROM aaa))"Rs1.Open str3, cn, adOpenKeyset, adLockOptimisticIf Rs1.RecordCount < 0 Then
Text1.Text = 0
End If查询语句在SQL查询分析器中运行没有问题，能查出需要的数据，但在vb中必须Rs1.RecordCount < 0才能激发if事件如果Rs1.RecordCount > 0则不会激发IF事件，请问是怎么回事，代码上应该有什么改变，请高人指点

Answer 1

在Rs1.Open str3, cn, adOpenKeyset, adLockOptimistic 强加上这一句试试Rs1.CursorLocation = adUseClient

Answer 2

你debug.print Rs1.RecordCount ,如果是为-1就加上cn.CursorLocation = adUseClient 去试