这个简单的东西写不来

我有一个窗体中有10个文本框，txt1 到txt10想在窗体打开时就读出数据库中的几行加在这几个文本框中，就是想把税种和品目读出来，金额自己输就行了，显示格式如下：
序号---税种：----------------品目：  
1-----营业税----------------建筑业  
2-----城建税----------------营业税  
3-----教育费附加-------------营业税  
4-----地方教育费附加---------营业税
5-----个人所得税------------营业额
数库中的type表如下：
items--------------name--------type--------note  
------------------城建税 --------1-
------------------教育附加-------2
------------------个税-----------3
营业税-------------建筑业---------4-----------1
城建税-------------营业税---------4-----------2
教育费附加---------营业税----------4-----------3
地方教育费附加------营业税---------4------------4
个人所得税----------营业额---------4------------5 
Form_Load()这样写的，想通过adodc查询后，反显在文本框上：
Adodc3.ConnectionString = "......" '连接省略了
Adodc3.RecordSource = "select * from type where type='4'
Adodc3.Refresh
  If Adodc3.Recordset.EOF = False Then
  If Adodc3.Recordset.Fields("note").Value = 1 Then
  txt1.Text = Adodc3.Recordset.Fields("items")
  txt2.text = Adodc3.Recordset.Fields("name")
  end if 
  If Adodc3.Recordset.Fields("note").Value = 2 Then
  txtpsz1.Text = Adodc3.Recordset.Fields("items")
  txtpm1.Text = Adodc3.Recordset.Fields("name")
  End If
  、、、、后边还有note=3、4、5的
  End If
 这样写我发现了问题，if条件只能显示出第一个，后边的就不显示了，怎么写才行了，太菜了，请各位多多帮助，
最初想用文本框定义成txt(i)这种数组的，然后循环读出，还是不行，也只能显第一个。

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