VB的SQL问题--为什么RS记录只有一条记录

Question

引用设置为Microsoft DAO 3.51 Object Libaray
程序如下:
Option Explicit
Dim db As Database
Dim rs As Recordset
Dim SQL As String
Private Sub Form_Load()
  Dim Locate_Folder_Name As String
  Set db = Workspaces(0).OpenDatabase(App.Path & "\file_data.mdb")
  Dim ii As Integer
  Set rs = db.OpenRecordset("SELECT * FROM " & "资料汇编")
 
  Debug.Print rs.RecordCount
End Sub
  Debug.Print rs.RecordCount 结果只有一条记录
实际数据库记录项有上百条
问题难道是DAO的问题
谢谢各位大侠

Answer 1

rs.MoveLast
Debug.Print rs.RecordCount

Answer 2

使用rs.MoveLast可以找到全部数据记录,可是我的目的是要将查询到的结果送到list控件中.
按上述方法,以下语句不能运行. For ii = 0 To rs.RecordCount - 1
    Debug.Print rs.Fields(0)
    List1.AddItem (rs.Fields(0))
    rs.MoveNext
  Next
我查了一些资料,以下语句没错
Dim Locate_Folder_Name As String
  Set db = Workspaces(0).OpenDatabase(App.Path & "\file_data.mdb")
  Dim ii As Integer
  Set rs = db.OpenRecordset("SELECT * FROM " & "资料汇编")

Answer 3

rs.MoveLast
Debug.Print rs.RecordCountrs.MoveFirst
For ii = 0 To rs.RecordCount - 1
    Debug.Print rs.Fields(0)
    List1.AddItem (rs.Fields(0))
    rs.MoveNext
Next