这个简单的东西写不来

--------------------编程问答-------------------- while not Adodc3.Recordset.eof
   ...
   Adodc3.Recordset.MoveNext
wend --------------------编程问答-------------------- 主要是要判断note等于几后下边才能写。 --------------------编程问答-------------------- 唉， 把文本框弄成数组，
If Adodc3.Recordset.EOF = False Then
                    Adodc3.Recordset.MoveFirst
                    Dim i As Integer
                    For i = 1 To 5
                    txtsz(Trim(i - 1)).Text = Adodc3.Recordset.Fields("items")
                    txtpm(Trim(i - 1)) = Adodc3.Recordset.Fields("name")
                    Adodc3.Recordset.MoveNext
                    Next i
        
                 End If

补充：VB ,  基础类