[求助]和数据库连接的循环次数问题
有时间请帮我看下如下代码：------------------------------------------------------------
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = TextX.Text
Do While Adodc1.Recordset.Fields(1) <> LabelX.Caption
Adodc1.Recordset.MoveNext
Loop
j = Adodc1.Recordset.Fields(2)
k = i + j
Adodc1.Recordset.Fields(2) = k
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Update
TextX.Text = "0"
----------------------------------------------------------------------------------
我想实现如上代码中的“X”分别改为“1”“2”“3”“4”循环执行4次 怎么实现啊？谢谢指教
