Dim cm As New OleDb.OleDbCommand

        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & kertas1_36110037.CurrentRow.Cells("notrans").Value & "'", hubung)

        hubung.Open()

        cm.ExecuteNonQuery()

4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window

7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_40a_36110037

    Dim dataset As New DataSet

    Dim datatable1 As New DataTable

    Dim datatable2 As New DataTable

    Dim rpt1 As New BindingSource

    Dim rpt2 As New BindingSource

    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")

    Public Sub resky1()

        Dim adapter As New OleDb.OleDbDataAdapter

        datatable2.Rows.Clear()

        datatable1.Rows.Clear()

        adapter = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        adapter.Fill(datatable1)

        adapter = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", hubung)

        adapter.Fill(datatable2)

    End Sub

  

    Private Sub Latihan_40a_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        resky1()

        dataset.Tables.Add(datatable1)

        dataset.Tables.Add(datatable2)

        datatable1.TableName = "r1"

        datatable2.TableName = "r2"

        dataset.Relations.Add(New DataRelation("an", dataset.Tables("r1").Columns("notrans"), dataset.Tables("r2").Columns("notrans")))

        rpt1.DataSource = dataset

        rpt1.DataMember = "r1"

        rpt2.DataSource = rpt1

        rpt2.DataMember = "an"

        Dim dc(1) As DataColumn

        dc(0) = datatable1.Columns("notrans")

        datatable1.PrimaryKey = dc

        kertas1_36110037.DataSource = rpt1

        kertas2_36110037.DataSource = rpt2

    End Sub

    Private Sub tambah_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tambah_36110037.Click

        If Latihan_40b_36110037.Visible = False Then

            Latihan_40b_36110037.Show()

        Else

            Latihan_40b_36110037.Activate()

        End If

        Latihan_40b_36110037.notrans_36110037.Text = ""

        Latihan_40b_36110037.jnstrans_36110037.Text = ""

        Latihan_40b_36110037.kode_36110037.Text = "-"

        Latihan_40b_36110037.resky2()

        Latihan_40b_36110037.resky3()

    End Sub

    Private Sub hapus_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hapus_36110037.Click

        Dim cm As New OleDb.OleDbCommand

        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & kertas1_36110037.CurrentRow.Cells("notrans").Value & "'", hubung)

        hubung.Open()

        cm.ExecuteNonQuery()

        hubung.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & kertas1_36110037.CurrentRow.Cells("notrans").Value & "'", hubung)

        hubung.Open()

        cm.ExecuteNonQuery()

        hubung.Close()

        cm.Dispose()

        resky1()

    End Sub

    Private Sub edit_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit_36110037.Click

        If Latihan_40b_36110037.Visible = False Then

            Latihan_40b_36110037.Show()

        Else

            Latihan_40b_36110037.Activate()

        End If

        Latihan_40b_36110037.notrans_36110037.Text = kertas1_36110037.CurrentRow.Cells("notrans").Value

        Latihan_40b_36110037.tgl_36110037.Value = kertas1_36110037.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_40b_36110037.jnstrans_36110037.Text = kertas1_36110037.CurrentRow.Cells("jenistransaksi").Value

        Latihan_40b_36110037.kode_36110037.Text = kertas1_36110037.CurrentRow.Cells("notrans").Value

        Latihan_40b_36110037.resky2()

        Latihan_40b_36110037.resky3()

    End Sub

End Class

8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.