急：高分求助（数据库查询）

Question

我现在用VB来查询ACESS中的数据，我的ACESS中数据记录明明有，然而执行后显示数据记录数为-1，我不知道问题出在那？
   下面是我连接数据库及进行查询的代码：（软件为VB6.0,引用的是MICROSOFT ACTIVEX DATA  OBJECTS 2.0 LIBRARY)
   Dim adconn As New ADODB.Connection
   Dim adrs As New ADODB.Recordset
        adconn.CommandTimeout = 30
         Dim strcnn As String
         Dim comstring As String
         comstring = "select * from fanzhan"     ' 表名为fanzhan
         strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\115\yonghu.mdb;Persist Security Info=False"
         adconn.ConnectionString = strcnn
         adconn.Open strcnn
         adrs.Open comstring, adconn
          q = adrs.RecordCount
          form1.text1.text=q
 strcnn 字符段我在控件ADODC中COPY，应该没错，
 运行时没有报错，但q=-1(我的表中是有数据记录的)
       
   本人很急，希望各位能给一些提示谢谢！！本人E-MAIL，[email protected]

Answer 1

只要在
adrs.Open comstring, adconn
前加一句rs.CursorLocation =adUseClient

Answer 2

Dim adconn As New ADODB.Connection
Dim adrs As New ADODB.Recordset
adconn.CommandTimeout = 30
adconn.CursorLocation = adUseClient 
....................................

Answer 3

最好是这样：
adrs.CursorLocation =adUseClient
adrs.Open comstring, adconn
adrs.movelast
q = adrs.RecordCount

Answer 4

谢谢大家，我再调试通过了，不过，.........
adconn.CursorLocation = adUseClient ,........我是一位新手，能否讲一下这语句的作用呢

Answer 5

数据查询真是难得搞懂,我也在郁闷中,我的问题是:
以文本框中的数据为条件,查询access中的数据,添加了数据环境，用了两种方式都不行
find方法和sql语句,试遍了我说能看到的所有书上的格式,运行时要么出错,要么查询不到,
请高手指点!