vb 查询数据库中的数据 怎么得到所有的数据库？

Question

我用
Public adoRS As New ADODB.Recordset
 adoRS.Open sqlstr, adoCon, adOpenDynamic, adLockOptimistic
 adoRS("编号") & ""
这样去查询，本来结果是有3条记录的，但是我只能得到第一条记录大虾指点下，刚接触vb，实在有点不懂？

Answer 1

print.debug adoRS.recordcount

Answer 2

dim i as long
dim strTemp as string
adoRS.Open sqlstr, adoCon, adOpenDynamic, adLockOptimistic
strTemp=""
for i=1 to adors.recordcount
    strTemp=strTemp & " adoRS("编号") & ""
    adors.movenext
next i
msgbox strTemp
adors.close

Answer 3

adors.recordcount 得到是-1，但明明结果有很多条数据