Выбор нужных строк из datagridview по условию для записи в таблицу базы данных mysql

Imports System.Data.SqlClient
 
Public Class Form1
    Dim ConnectionSQL As New SqlConnection("Data Source=HELLRAISER\HELLRAISER;Initial Catalog=Menu;Integrated Security=True;Encrypt=False")
 
    Sub New()
        ConnectionSQL.Open()
        InitializeComponent()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ZakTableAdapter.Fill(MenuDataSet.Zak)
        SlovarTableAdapter.Fill(MenuDataSet.Slovar)
        grdSlovar.Columns.Add("Col1", "Col1")
    End Sub
 
    Private Sub txtFilter_TextChanged(sender As Object, e As EventArgs) Handles txtFilter.TextChanged
        Dim count As Integer
        If grdSlovar.AllowUserToAddRows Then
            count = grdSlovar.Rows.Count - 2
        Else
            count = grdSlovar.Rows.Count - 1
        End If
        grdSlovar.CurrentCell = Nothing
        For i = 0 To count
            grdSlovar.Rows(i).Visible = Not grdSlovar(1, i).Value.ToString.IndexOf(txtFilter.Text, StringComparison.OrdinalIgnoreCase)
        Next
    End Sub
 
    Private Sub cmdCopy_Click(sender As Object, e As EventArgs) Handles cmdCopy.Click
        For i = 0 To grdSlovar.Rows.Count - 2
            If grdSlovar("Col1", i).Value <> "" Then
                MenuDataSet.Tables("Zak").Rows.Add({grdSlovar(0, i).Value,
                                               grdSlovar(1, i).Value,
                                               grdSlovar(2, i).Value,
                                               grdSlovar(3, i).Value,
                                               grdSlovar(4, i).Value})
            End If
        Next
        ZakTableAdapter.Update(MenuDataSet.Zak)
        grdZak.Update()
    End Sub
 
    Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click
        SlovarTableAdapter.Update(MenuDataSet.Slovar)
    End Sub
 
    Private Sub DataGridView2_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles grdZak.UserDeletedRow
        ZakTableAdapter.Update(MenuDataSet.Zak)
    End Sub
End Class