rpt.Relations.Add(New DataRelation("03", rpt.Tables("01").Columns("notrans"), rpt.Tables("02").Columns("notrans")))

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 object yang ada dalam form latihan dengan  menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_22_36110037

    Dim hubung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim tbl As New DataTable

    Dim tbl2 As New DataTable

    Dim rpt As New DataSet

    Dim rhepoet As New BindingSource

    Dim rhepoet2 As New BindingSource

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

        Dim truk As New OleDb.OleDbDataAdapter

        Dim truk2 As New OleDb.OleDbDataAdapter

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

        truk.Fill(tbl)

        truk.Dispose()

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

        truk.Fill(tbl2)

        truk2.Dispose()

        rpt.Tables.Add(tbl)

        rpt.Tables.Add(tbl2)

        tbl.TableName = "01"

        tbl2.TableName = "02"

        rpt.Relations.Add(New DataRelation("03", rpt.Tables("01").Columns("notrans"), rpt.Tables("02").Columns("notrans")))

        rhepoet.DataSource = rpt

        rhepoet.DataMember = "01"

        rhepoet2.DataSource = rhepoet

        rhepoet2.DataMember = "03"

        kertas1_36110037.DataSource = rhepoet

        kertas2_36110037.DataSource = rhepoet2

    End Sub

End Class

8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.