indice olte i limiti della matrice vb.net

[biocco]

Ciao! mi va in errore la riga segnata in rosso (indice olte i limiti della matrice) quando ha fatto la lettura della riga 1024 cosa devo fare????!!!! Grazie infinite

   '21 controllo

        sql = " SELECT CDALIMENTO, DSALIMENTO_ITA, DBI_V26, DBI_V33 "
        sql = sql & " FROM DISTINTA_BASE_Crosstab "
        sql = sql & " ORDER BY CDALIMENTO; "

        dbcomm.CommandText = sql
        dbcomm.Connection = Connettidb()
        dbread = dbcomm.ExecuteReader()

        If dbread.HasRows Then
            While dbread.Read()

                Dim comp1 As Double = dbread(3)
                Dim comp2 As Double = dbread(4)   

                comp1 = Verifica(comp1)
                comp2 = Verifica(comp2)

                If comp1 > comp2 Then

                    tbl21.CellSpacing = 3
                    tbl21.CellPadding = 0

                    tr = New TableRow
                    tc = New TableCell
                    tc.Text = dbread(0)
                    tr.Cells.Add(tc)
                    tc = New TableCell
                    tc.Text = dbread(2)
                    tr.Cells.Add(tc)
                    tc = New TableCell
                    tc.Text = comp1
                    tr.Cells.Add(tc)
                    tc = New TableCell
                    tc.Text = comp2
                    tr.Cells.Add(tc)
                    tbl21.Rows.Add(tr)

                End If

            End While
        End If

        dbread.Close()