VB 中怎么取得数据源的第一行第一列的值

VB 中如何取得数据源的第一行第一列的值
Private Sub btn_ChuTi_Click()
Dim rs As New ADODB.Recordset
  Sql = "select top 20 Qcontent,Qanswer from TbmQusetions order by newID() desc" '把查询用户信息的SQL语句赋给变量Sql
  rs.Open Sql, cnn, adOpenStatic, adLockBatchOptimistic '以只读的方式静态的打开Sql执行的结果的记录集
   
  lblT1.Caption = rs.Fields(0) 这种方法好像不行；
  lblT2.Caption =
  lbl3.Caption = 
  lblT4.Caption = 
  lblT5.Caption = 
  lblT6.Caption = 
End Sub
 
我的目的是，将表中的Qcontent 字段赋值给lblT1....lblT20 , 我现在从数据库中随即取出了20条数据，如何赋值给到label中呢，


[解决办法]

VB code

Private Sub btn_ChuTi_Click()Dim rs As New ADODB.Recordset  Sql = "select top 20 Qcontent,Qanswer from TbmQusetions order by newID() desc" '把查询用户信息的SQL语句赋给变量Sql  rs.Open Sql, cnn, adOpenStatic, adLockBatchOptimistic '以只读的方式静态的打开Sql执行的结果的记录集  rs.movefirst    lblT1.Caption = rs("Qcontent")   rs.movenext   lblT2.Caption =rs("Qcontent")  .................  lbl3.Caption =    lblT4.Caption =    lblT5.Caption =    lblT6.Caption =  End Sub
[解决办法]
lz是最佳答案

这样最好建立控件数组lblT(19)
VB codePrivate Sub btn_ChuTi_Click()
Dim rs As New ADODB.Recordset
 Sql = "select top 20 Qcontent,Qanswer from TbmQusetions order by newID() desc" '把查询用户信息的SQL语句赋给变量Sql
 rs.Open Sql, cnn, adOpenStatic, adLockBatchOptimistic '以只读的方式静态的打开Sql执行的结果的记录集
 rs.movefirst 
 for i=0 to 19
     lblT(i).Caption = rs("Qcontent")
     rs.movenext
 next i  
End Sub