vb的数据库集合没有“count”？那该用什么？

Question

代码如下：
Private Sub Command1_Click()'定义ado变量
Dim adocon As Connection'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbmy.mdb;"'读取数据库内储存的名字
Dim rsado0 As New ADODB.Recordset
rsado0.Open "select name from db1", adocon'在list表中列出名字
Dim m
-----------------------------------
m = rsado0.Count（错在这里！count）
-----------------------------------
For i = 1 To m
List1.List(m - 1) = rsado(m - 1)
NextEnd Sub
=========================================================================
报错：未找到方法或数据成员
=========================================================================
问题：我想知道我建立的数据集合rsado0一共有多少项并把它们一一列出，应该用什么方法？
=========================================================================
大虾们教我，谢谢，谢谢~~~~

Answer 1

这样写也不对哦：Private Sub Command1_Click()'定义ado变量
Dim adocon As Connection
'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbriver.mdb;"
'读取数据库内储存的河段的名字
Dim rsado0 As New ADODB.Recordset
rsado0.Open "select name from db1", adocon
'在list表中列出河段的名字
Dim m
m = 0
Do While Not rsado.EOF
List1.List(m) = rsado(m)
m = m + 1
LoopEnd Sub

Answer 2

1) 应使用m =rsado0.Recordcount
2)Do While Not rsado.EOF
  List1.List(m) = rsado(m)
  m = m + 1
  rsado.MoveNext
  Loop

Answer 3

你的数据指针类型没有定义。
改一下这里就应该可以了。rsado0.Open "select name from db1", adocon，adOpenKeyset

Answer 4

这样就能使用Count属性来循环了。

Answer 5

呵呵，办法真多啊~~~  free_eyes(eyes)  看来你的办法不太对哦~~~正确答案为：：
Private Sub Command1_Click()'定义ado变量
Dim adocon As Connection
'打开数据库
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.4.0;Data Source=" & App.Path & "\dbriver.mdb;"
'读取数据库内储存的河段的名字
Dim rsado0 As New ADODB.Recordset
rsado0.Open "select name from db1", adocon
'在list表中列出字段的名字
Do While Not rsado.EOF
  List1.AddItem rsado.fields(0)
  rsado.movenext
Loop
rsado.close
adocon.close
End Sub就这样就可以了~~~~~~~~~~~~~~~