Form 20

Public Class Form20

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

    Dim AR As New DataTable

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

        Dim ami As New OleDb.OleDbDataAdapter

        ami = New OleDb.OleDbDataAdapter("select * from query3", CONECT)

        AR.Rows.Clear()

        ami.Fill(AR)

        dgv_021.DataSource = AR

        ami.Dispose()

    End Sub

End Class