Try
            For i As Integer = 0 To dgv.Rows.Count - 1
                If dgv.Rows(i).Cells(0).Value.ToString.ToLower.StartsWith(str) _
                  Then
                    dgv.Rows(i).Selected() = True
                    MsgBox(dgv.Rows(i).Cells(0).Value.ToString)
                End If
            Next
        Catch ex As Exception
        End Try

Do
...
while SinDG.Search(strSearch, Me.DataGridView1)

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################