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.IndexOu tOfRangeExcepti on'
occurred in system.data.dll

Additional information: Index out of arrary。"

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

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

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

conStr = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=C:\Docum ents and Settings\alan\M y Documents\Visua l Studio
Projects\Functi onTest\test.mdb ;" & _
"Persist Security Info=False"

dbCon.Connectio nString = conStr
oleCmd = New OleDbCommand("S elect a.order_id, b.food_code,
b.price from [order] a, order_detail b where a.order_id=b.or der_id")
oleCmd.Connecti on = dbCon
dbCon.Open()
myData = oleCmd.ExecuteR eader
lv1.Clear()

Dim sht As Short
Dim lvCol As ColumnHeader

For sht = 0 To myData.FieldCou nt() - 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.FieldCou nt() - 1
If myData.IsDBNull (sht1) Then
itm.SubItems.Ad d("")
Else
itm.SubItems.Ad d(myData.GetStr ing(sht1))
End If
Next sht1

lv1.Items.Add(i tm)

Loop

End Sub
End Class