the following code adds items to a combo box. however it throws an error when it gets to 5 because there is no row at 5. how do i prevent this

Dim length As Integer = ds.Tables(0).Rows.Count()

For i As Integer = 1 To length
Dim wineid As String
wineid = ds.Tables(0).Rows(i)("WineId").ToString()
Me.cboWineID.Items.Add(wineid)
Me.cboWineID.DisplayMember = "WineId"
Next

thanks in advance

notrosh