If notrans_36110037.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jnstrans_36110037.Text.Length = 0 Then

            MsgBox("Isi rong Jenis Transaksi na..")

        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 Class Latihan_39_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 resky()

        Dim resky1 As Integer = 0

        For Each resky2 As DataRow In table.Rows

            resky1 += resky2("JUMLAH")

        Next

        total_36110037.Text = resky1

    End Sub

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & notrans_36110037.Text & "'", hubung)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

        kertas_36110037.DataSource = table

        Dim kolom(1) As DataColumn

        kolom(0) = table.Columns("kodebarang")

        table.PrimaryKey = kolom

    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("Isi rong Jenis Transaksi na..")

        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 = ""

        total_36110037.Text = ""

        table.Rows.Clear()

        resky()

    End Sub

    Private Sub kertas_36110037_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles kertas_36110037.CellEndEdit

        If kertas_36110037.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = ""

            kertas_36110037.CurrentRow.Cells("UNIT").Value = 0

            kertas_36110037.CurrentRow.Cells("HARGA").Value = 0

            kertas_36110037.CurrentRow.Cells("JUMLAH").Value = 0

            rhepoet.AturPencarianDataBase("barang", "kodebarang", kertas_36110037.CurrentRow.Cells("KODEBARANG").Value, 1, hubung)

            If rhepoet.JumlanBaris > 0 Then

                kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = rhepoet.DataTablenya.Rows(0).Item("NAMABARANG")

            Else

                kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = ""

                If Latihan_38_39_40_36110037.ShowDialog = Windows.Forms.DialogResult.OK Then

                    kertas_36110037.CurrentRow.Cells("KODEBARANG").Value = Latihan_38_39_40_36110037.kertas_36110037.CurrentRow.Cells("KODEBARANG").Value

                    kertas_36110037.CurrentRow.Cells("NAMABARANG").Value = Latihan_38_39_40_36110037.kertas_36110037.CurrentRow.Cells("NAMABARANG").Value

                End If

            End If

        ElseIf kertas_36110037.Columns(e.ColumnIndex).Name = "UNIT" Or kertas_36110037.Columns(e.ColumnIndex).Name = "HARGA" Then

            kertas_36110037.CurrentRow.Cells("JUMLAH").Value = kertas_36110037.CurrentRow.Cells("UNIT").Value * kertas_36110037.CurrentRow.Cells("HARGA").Value

            resky()

        End If

    End Sub

End Class