Form 38 39 40

Public Class Form38_39_40_36109023
    Dim dt As New DataTable
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form38_39_40_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", ame)
        dt.Rows.Clear()
        pororo.Fill(dt)
        pororo.Dispose()

        dgv36109023.DataSource = dt
    End Sub
End Class