ListView Data Binding Error

[alan]

Dear all,

I'm trying to do a data binding for a ListView and I rewrite the code
from some example but there is a error while I execute.

Can anybody tell me what's wrong with it?? Thank you!!

Alan

Error message is

"An unhandled exception of type 'System.IndexOutOfRangeException'
occurred in system.data.dll

Additional information: Index out of arrary。"

at '*****' below
lv1=Listview

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim dbCon As New OleDbConnection
Dim conStr As String
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim myData As OleDbDataReader
Dim oleCmd As OleDbCommand

conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\alan\My Documents\Visual Studio
Projects\FunctionTest\test.mdb;" & _
"Persist Security Info=False"

dbCon.ConnectionString = conStr
oleCmd = New OleDbCommand("Select a.order_id, b.food_code,
b.price from [order] a, order_detail b where a.order_id=b.order_id")
oleCmd.Connection = dbCon
dbCon.Open()
myData = oleCmd.ExecuteReader
lv1.Clear()

Dim sht As Short
Dim lvCol As ColumnHeader

For sht = 0 To myData.FieldCount() - 1
lvCol = New ColumnHeader
lvCol.Text = myData.GetName(sht)
lv1.Columns.Add(lvCol)
Next
lvCol = Nothing

Dim itm As ListViewItem
Dim sht1 As Short

Do While myData.Read
itm = New ListViewItem

***** If myData.IsDBNull(myData(0)) Then
itm.Text = ""
Else
itm.Text = myData(0)
End If

For sht1 = 1 To myData.FieldCount() - 1
If myData.IsDBNull(sht1) Then
itm.SubItems.Add("")
Else
itm.SubItems.Add(myData.GetString(sht1))
End If
Next sht1

lv1.Items.Add(itm)

Loop

End Sub
End Class