vb中用循环使Label 赋值

Question

现在有Label(x)到 Label（y）

想用一个循环来使 Label(x)---Label（y）
自己读取数据库的值来赋值。
x比y小的。
..额，，

比如 我有 label1 ,label2 ,label3 ,label4 ,label5 ,label6 ,label7 ,label8 ,label9.
想用一个循环 ，来为这些 Label.caption 赋值
让这些Label.caption 自动读取数据库中的值，来赋值
数据库是 aaa .

1 2 3 4
a a a a
b b b b
c c c c
d d d d

Dim rs_add1 As New ADODB.Recordset
Dim sql1 As String
sql1 = "select * from 数据整体表 where 岗位=职责"
rs_add1.Open sql1, conn, adOpenKeyset, adLockPessimistic
x = 4

Do
Label(x).Caption = rs_add1.Fields(3)

rs_add1.Close
Loop While rs_add1.Fields(2) <> "职责"

Answer 1

VB中要用下面的方法来实现Label(x)这样的功能
for i = 1 to 8
Controls("label"&cstr(i)).Caption = cstr(i)
next

Answer 2

说的太不具体了。