01.Sub Ex_Query()
02.
03. For i As Integer = 0 To DataGridView1.RowCount - 1
04. If Not DataGridView1.Rows(i).Cells(1).Value Is Nothing Then
05. word3 = DataGridView1.Rows(i).Cells(1).Value.ToString
06.
07. OpenDB()
08. Dim sql As String = "SELECT COUNT (ID) as ""Computer"" FROM Scopus WHERE ((Authors LIKE '*" & word3 & "*') or (Title LIKE '*" & word3 & "*') or (Source_title LIKE '*" & word3 & "*') or (Affiliations LIKE '*" & word3 & "*') or (Abstract LIKE '*" & word3 & "*') or (Author_keywords LIKE '*" & word3 & "*') or (Index_keywords LIKE '*" & word3 & "*') or (References_ LIKE '*" & word3 & "*'))"
09.
10.
11. Dim adapter As New OleDbDataAdapter(sql, conn)
12. Dim data As New DataSet()
13.
14. adapter.Fill(data, "Scopus")
15.
16.
17. End If
18. Next
19. End Sub
