latihan 38-39-40

Public Class LATIHAN38_39_40_36109013
    Dim DT As New DataTable
    Dim fany As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub LATIHAN38_39_40_36109013_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim S As New OleDb.OleDbDataAdapter
        S = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", fany)
        DT.Rows.Clear()
        S.Fill(DT)
        S.Dispose()

        dgv36109013.DataSource = DT

    End Sub
End Class