salve, ho questo codice per ricercare una parola in ogni cella di una datagrid... ma mi da questo errore:"Index non compreso nell'intervallo. Richiesto valore non negativo e minore della dimensione dell'insieme. Nome parametro: index"

codice:
Dim righe As Integer
        Dim colonne As Integer

        righe = frmAgenda.dgvTabella.RowCount
        colonne = frmAgenda.dgvTabella.ColumnCount

        Dim riga As Integer
        Dim colonna As Integer
        Dim parola As String

        'controlla ogni cella
        For riga = 0 To righe - 1   'segui fino a righe -1 (tutte le righe della tabella vengono controllate)
            For colonna = 0 To colonna = 0
                parola = frmAgenda.dgvTabella.Item(riga, colonna).Value
               
                If parola = txtRicerca.Text Then
                    frmAgenda.dgvTabella.Item(riga, colonna).Selected = True
                    If frmAgenda.dgvTabella.Item(0, 0).Value.ToString = parola Then
                        frmAgenda.dgvTabella.Item(0, 0).Selected = True
                    Else
                        frmAgenda.dgvTabella.Item(0, 0).Selected = False
                    End If
                Else
                    'MsgBox("Nessun valore corrispondente al dato immesso è stato trovato!", MsgBoxStyle.Exclamation, "Nessun valore trovato!")
                End If
            Next
        Next

    End Sub