vb中怎样用LABEL循环输出数据库中数据

Call OpenConn
rs.Open "select * from 网址收藏 where 置顶=true ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
mingcheng1.Caption = rs("名称")
dizhi1.Caption = rs("地址")
rs.Movenext

If Not rs.EOF Then
mingcheng2.Caption = rs("名称")
dizhi2.Caption = rs("地址")
rs.Movenext

If Not rs.EOF Then
mingcheng3.Caption = rs("名称")
dizhi3.Caption = rs("地址")
End If
End If
End If
rs.Close

本来你最好用控件数组来做的，不是控件数组的话，就只能这样一个个赋值了。

不用控件数组也可以编程的
For i = 1 To 3
Controls("mingcheng" & i).Caption = rs!名称 & ""
Controls("dizhi" & i).Caption = rs!地址 & ""
Next

计时器或者API