try this
Dim Arr As String()
Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim str As String
Dim dr As OleDbDataReader
Arr = TextBox1.Text.Split(",")
For Each name As String In Arr
con = New OleDbConnection("YourConnectionString")
con.open()
str = "select * from YourTableName where YourColumnName like '%" & name & "%'"
cmd = New OleDbCommand(str, con)
dr = cmd.ExecuteReader
If dr.HasRows Then
DataGridView1.Rows.Insert(dr(0), dr(1), dr(2), dr(3))
End If
dr.Close()
str = "select * from YourTableName where YourColumnName like '%" & name & "%'"
cmd = New OleDbCommand(str, con)
dr = cmd.ExecuteReader
If dr.HasRows Then
DataGridView1.Rows.Insert(dr(0), dr(1), dr(2), dr(3))
End If
dr.Close()
Next