I don't see anywhere you are binding the result to the GridView1.
From the above code, I did few modification. I hope this would help to find the duplicates.
If Not DataReader.HasRows Then
MsgBox("AKO!")
Else
While DataReader.Read
MsgBox("duPLICATE")
End While
End If
Mark it as answer if it is helpful.