Code:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
con.Open()
da = New OleDbDataAdapter("SELECT * FROM tabela", con)
da.Fill(dt)
dt.Rows(0).BeginEdit()
dt.Rows(0).Delete()
dt.Rows(0).EndEdit()
Dim cb As New OleDbCommandBuilder(da)
da.Update(dt)
dgv.DataSource = dt.DefaultView
con.Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
con.Open()
da = New OleDbDataAdapter("SELECT * FROM tabela", con)
da.Fill(dt)
dt.Rows(0).BeginEdit()
dt.Rows(0).Delete()
dt.Rows(0).EndEdit()
Dim cb As New OleDbCommandBuilder(da)
da.Update(dt)
dgv.DataSource = dt.DefaultView
con.Close()
End Sub