If notrans_36110037.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jnstrans_36110037.Text.Length = 0 Then

            MsgBox("Jenis Transaksi Harus diisi")

        ElseIf table.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

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 NotInheritable Class Latihan_35_36110037

    Dim rhepoet As New ByIskandar.CariKeDataBaseByIskandar

    Dim table As New DataTable

    Dim rpt As New OleDb.OleDbCommand

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

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

        Dim RI As New OleDb.OleDbDataAdapter

        RI = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & notrans_36110037.Text & "'", hubung)

        RI.Fill(table)

        RI.Dispose()

        kertas_36110037.DataSource = table

    End Sub

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

        If kb_36110037.Text.Length = 0 Then

            MsgBox("kode barang tidak terisi")

        ElseIf Val(unit_36110037.Text) = 0 Then

            MsgBox("unit tidak terisi")

        ElseIf Val(harga_36110037.Text) = 0 Then

            MsgBox("harga barang tidak terisi")

            Exit Sub

        End If

        Dim dt As DataRow

        dt = table.NewRow

        dt("KODEBARANG") = kb_36110037.Text

        dt("UNIT") = Val(unit_36110037.Text)

        dt("HARGA") = Val(harga_36110037.Text)

        table.Rows.Add(dt)

        kb_36110037.Text = ""

        unit_36110037.Text = ""

        harga_36110037.Text = ""

    End Sub

    Private Sub simpan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_36110037.Click

        If notrans_36110037.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jnstrans_36110037.Text.Length = 0 Then

            MsgBox("Jenis Transaksi Harus diisi")

        ElseIf table.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

        End If

        rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1, hubung)

        If rhepoet.JumlanBaris > 0 Then

            MsgBox("nomor transaksi telah ada")

            Exit Sub

        End If

        rpt = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_36110037.Text & "',#" & tgl_36110037.Value.Month & "/" & tgl_36110037.Value.Day & "/" & tgl_36110037.Value.Year & "#,'" & jnstrans_36110037.Text & "')", hubung)

        hubung.Open()

        rpt.ExecuteNonQuery()

        hubung.Close()

        For Each x As DataRow In table.Rows

            rpt = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & notrans_36110037.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", hubung)

            hubung.Open()

            rpt.ExecuteNonQuery()

            hubung.Close()

        Next

        rpt.Dispose()

        notrans_36110037.Text = ""

        jnstrans_36110037.Text = ""

        table.Rows.Clear()

    End Sub