Удаление строки из access

        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\1.mdb")
        Dim da As New OleDb.OleDbDataAdapter
        Dim tbl As New DataTable
        Dim cb As OleDb.OleDbCommandBuilder
        cb = New OleDb.OleDbCommandBuilder(da)
 
        cn.Open()
        da.SelectCommand = New OleDb.OleDbCommand("Select * from Таблица1", cn)
        da.Fill(tbl)
        DataGridView1.DataSource = tbl
 
        MsgBox("Удалим запись")
        da.DeleteCommand = New OleDb.OleDbCommand("Delete * from Таблица1 where Код=?", cn)
        da.DeleteCommand.Parameters.Add("Код", OleDb.OleDbType.VarWChar).SourceColumn = "Код"
        tbl.Rows(2).Delete()
 
        MsgBox("Сохраним изменения")
        da.Update(tbl)

Dim r As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=1.mdb")
        r.Open()
        Dim y As New OleDb.OleDbCommand("DELETE FROM [Таблица1] WHERE [Код] = " & " " & num & " ", r)
        y.ExecuteNonQuery()
        r.Close()