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

[空怀]

我用
Public adoRS As New ADODB.Recordset
adoRS.Open sqlstr, adoCon, adOpenDynamic, adLockOptimistic
adoRS("编号") & ""
这样去查询，本来结果是有3条记录的，但是我只能得到第一条记录

大虾指点下，刚接触vb，实在有点不懂？

[lxq19851204]

print.debug adoRS.recordcount

[饮水需思源]

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

[zuoxingyu]

sqlstr

是什么内容？？

[空怀]

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