Добавление записи в БД Access

Public Class Main
    Dim Con As OleDb.OleDbConnection                                        ' Переменная для подключения базы
    Dim BD As OleDb.OleDbCommand
    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_Tovar_DataSet2.TOVAR". При необходимости она может быть перемещена или удалена.
        Me.TOVARTableAdapter3.Fill(Me._Tovar_DataSet2.TOVAR)
        'TODO: данная строка кода позволяет загрузить данные в таблицу "TovDS.TOVAR". При необходимости она может быть перемещена или удалена.
        Me.TOVARTableAdapter2.Fill(Me.TovDS.TOVAR)
    End Sub
 
    Private Sub ExitBtn_Click(sender As Object, e As EventArgs) Handles ExitBtn.Click
        Me.Close()                                                          ' Закрываем программу
        Otchet.Close()
        Mainmenu.Close()
    End Sub
 
    Private Sub AddBtn_Click(sender As Object, e As EventArgs) Handles AddBtn.Click
        BD = New OleDb.OleDbCommand("INSERT INTO [TOVAR] ([Наименование], [Количество], [Срок годности], [Код производителя], [Дата производства], [Дата поступления], [Сотрудник]) 
VALUES (Txt1.Text, Txt2.Text, Txt7.Text, Txt3.Text, Txt5.Text, Txt6.Text, Txt4.Text )", Con)
        Con.Open()
        BD.ExecuteNonQuery()
        Con.Close()
    End Sub
 
    Private Sub RedBtn_Click(sender As Object, e As EventArgs) Handles RedBtn.Click
 
    End Sub
 
    Private Sub DelBtn_Click(sender As Object, e As EventArgs) Handles DelBtn.Click
 
    End Sub
 
    Private Sub BtnBack_Click(sender As Object, e As EventArgs) Handles BtnBack.Click
        Mainmenu.Show()
        Me.Close()
    End Sub
 
End Class

Dim Con As New OleDb.OleDbConnection("PROVIDER = Microsoft.Jet.OLEDB.4.0; DATA SOURCE =" & Application.StartupPath & "\Tovar.mdb")

Private Sub AddBtn_Click(sender As Object, e As EventArgs) Handles AddBtn.Click
        Con.Open()
        BD = New OleDb.OleDbCommand("INSERT INTO [TOVAR] ([Наименование], [Количество], [Срок годности], [Код производителя], [Дата производства], [Дата поступления], [Код сотрудника])VALUES ('" & Txt1.Text & "', '" & Txt2.Text & "', '" & Txt7.Text & "', '" & Txt3.Text & "', '" & Txt5.Text & "', '" & Txt6.Text & "', '" & Txt4.Text & "' )", Con)
        BD.ExecuteNonQuery()
        Con.Close()
        Me.TOVARTableAdapter3.Fill(Me._Tovar_DataSet2.TOVAR)
    End Sub

    Dim Con As New OleDb.OleDbConnection("PROVIDER = Microsoft.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "\Tovar+.accdb")                ' Переменная для подключения базы
    Dim BD As OleDb.OleDbCommand

Private Sub RedBtn_Click(sender As Object, e As EventArgs) Handles RedBtn.Click
        Con.Open()
        BD = New OleDb.OleDbCommand("UPDATE [TOVAR] SET [Количество]='" & Txt2.Text & "' WHERE (Код = 'DBGrid.CurrentRow' )", Con)
        BD.ExecuteNonQuery()
        Con.Close()
        Me.TOVARTableAdapter3.Fill(Me._Tovar_DataSet2.TOVAR)
    End Sub

Private Sub DelBtn_Click(sender As Object, e As EventArgs) Handles DelBtn.Click
        Con.Open()
        BD = New OleDb.OleDbCommand("DELETE FROM [TOVAR] WHERE (Код = 'DBGrid.CurrentRow' )", Con)
        BD.ExecuteNonQuery()
        Con.Close()
        Me.TOVARTableAdapter3.Fill(Me._Tovar_DataSet2.TOVAR)
    End Sub

WHERE (Код = 'DBGrid.CurrentRow' )"

WHERE (Код = '" & DBGrid.CurrentRow.Cells(3).Value & "' )"

WHERE (Код товара = '" & DBGrid.CurrentRow.Cells(0).Value & "')"

WHERE ([Код товара] = " & DBGrid.CurrentRow.Cells(0).Value & ")"