Public Class Latihan_30A_022
    Dim dt As New DataTable
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub faisal()
        Dim fm As New OleDb.OleDbDataAdapter
        fm = New OleDb.OleDbDataAdapter("select * from barang", hma)
        dt.Rows.Clear()
        fm.Fill(dt)
        fm.Dispose()
    End Sub