Structure abb
    Public publications As String
    Public author As String
    Public title As String
End Structure

    Public arlist As New ArrayList
    Public thebooks As New abb

  For i As Integer = 0 To Databook.Rows.Count - 2  'databook is the gridview
            With thebooks
                .publications = CStr(Databook.Rows(i).Cells(1).Value)
                .author = CStr(Databook.Rows(i).Cells(2).Value)
                .title = CStr(Databook.Rows(i).Cells(3).Value)
            End With
            If Not arlist .Contains(thebooks) Then
                arlist .Add(thebooks)
            End If
        Next i