帮我看看这个动态加载数据到listView的函数！

[cp07]

function inputListView()
If MyConnection.State = ConnectionState.Closed Then MyConnection.Open()
dim MySql_Cust as string="select ref_no,cust_simp,papymant_ccy from GBCUST"
Dim cmd As SqlCommand = New SqlCommand(MySql_Cust, MyConnection)
Dim rd As SqlDataReader
rd = cmd.ExecuteReader
Do While rd.Read
Dim i As Integer = 0
Do While rd.Read
ListView1.Items(i).SubItems.Add(rd("ref_no"))
ListView1.Items(i).SubItems.Add(rd("cust_simp"))
ListView1.Items(i).SubItems.Add(rd("payment_ccy"))
i = i + 1
Loop
Loop
rd.Close()
cmd.Dispose()
If MyConnection.State = ConnectionState.Open Then MyConnection.Close()
ListView1.Refresh()
End function

为什么第一列加载不到，为什么rd("paymenu_ccy")会出错，而rd("ref_no")却没事？是不是哪个地方写错了！

[StephonF]

肯定是paymenu_ccy 为null 才会这样！