Как произвести запись в БД с текстовых полей на форме или других контроллов

'Imports System.Data.OleDb
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As New OleDbConnection
        Dim acscmd As New OleDb.OleDbCommand
        Dim strSQL As String
        conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                                 & Application.StartupPath & "\MyDB.mdb;User ID=Admin;Jet OLEDB:Database Password=;")
        conn.Open()
 
        strSQL = "INSERT INTO Table1 ([Fam], [Imya], [Otch]) VALUES ('" _
        & TextBox1.Text & "','" _
        & TextBox2.Text & "','" _
        & TextBox3.Text & "')"
        acscmd.CommandText = strSQL
        acscmd.Connection = conn
        acscmd.ExecuteNonQuery()
 
        strSQL = "INSERT INTO Table2 ([Fam], [Imya], [Otch]) VALUES ('" _
        & TextBox3.Text & "','" _
        & TextBox4.Text & "','" _
        & TextBox5.Text & "')"
        acscmd.CommandText = strSQL
        acscmd.ExecuteNonQuery()
        acscmd.Dispose()
 
        conn.Close()
 
        MsgBox("Saved")
    End Sub

strSQL = "Delete From Table2 Where ID = 1"

strSQL = "Update Table2 Set Fam = 'MyFam' Where ID = 1"

Dim comDelete = New OleDb.OleDbCommand("DELETE FROM [Электролиты] WHELE ID='" & DbView.DataGridView2.Rows(ComboBox2.SelectedIndex).Cells(0).Value & "'")
        comDelete.Connection = Form1.con
        comDelete.ExecuteNonQuery()
        MessageBox.Show("Электролит удален")
        Form1.con.Close()
        While (DbView.DataGridView2.Rows.Count <> 0)
            DbView.DataGridView2.Rows.Remove(DbView.DataGridView2.Rows(DbView.DataGridView2.Rows.Count - 1))
        End While
        Form1.con.Open()
 
        ComboBox2.Items.Clear()
 
        Form1.Electrolit_Adapter.Fill(Form1.AllTables, "Электролиты")
        DbView.DataGridView2.DataSource = Form1.AllTables.Tables.Item("Электролиты")
 
        For i = 0 To DbView.DataGridView2.RowCount - 1
            ComboBox2.Items.Add(DbView.DataGridView2.Rows(i).Cells(1).Value)
        Next i

Dim comDelete = New OleDb.OleDbCommand("DELETE FROM [Электролиты] WHERE ID=" & DbView.DataGridView2.Rows(ComboBox2.SelectedIndex).Cells(0).Value)

Imports System.Data.SqlClient 'чтобы не писать каждый раз SqlClient
Public Class frmMain
    'строка соединения с базой данных
    Dim connectionString As String =
        "Data Source=LOCALHOST\SQLEXPRESS;" &
        "Initial Catalog=MILITARY;" &
        "Integrated Security=True;" &
        "Pooling=False"
 
    Dim connection As New SqlConnection(connectionString)
 
    Private Sub butЗагрузить_Click(sender As Object, e As EventArgs) Handles butЗагрузить.Click
        Dim cmdSelect As New SqlCommand("SELECT * FROM PERSONS", connection)
        Dim DA As New SqlDataAdapter(cmdSelect)
        Dim DT As New DataTable 'создаём таблицу "в памяти"
 
        connection.Open() 'открываем соединение с БД
        DA.Fill(DT) 'считываем данные в таблицу в памяти
        connection.Close() 'больше соединение нам не нужно --- закрываем его
        dgvДанные.DataSource = DT 'выводим данные в datagridview
        MsgBox("Данные загружены.")
    End Sub
 
    Private Sub butДобавить_Click(sender As Object, e As EventArgs) Handles butДобавить.Click
 
        'создаём запрос на вставку записей в БД
        Dim cmdInsert As New SqlCommand("INSERT INTO PERSONS (Фамилия, Имя, Отчество) VALUES (@p1,@p2,@p3)", connection)
 
        'создаём параметры запроса
        cmdInsert.Parameters.Add("@p1", SqlDbType.NVarChar, 50)
        cmdInsert.Parameters.Add("@p2", SqlDbType.NVarChar, 50)
        cmdInsert.Parameters.Add("@p3", SqlDbType.NVarChar, 50)
 
        'заполняем их
        cmdInsert.Parameters("@p1").Value = txtФамилия.Text
        cmdInsert.Parameters("@p2").Value = txtИмя.Text
        cmdInsert.Parameters("@p3").Value = txtОтчество.Text
 
        connection.Open() 'открываем соединение с БД
        cmdInsert.ExecuteNonQuery() 'исполняем запрос
        connection.Close() 'больше соединение нам не нужно --- закрываем его
        MsgBox("Запись добавлена.")
    End Sub
 
End Class