Latihan 383940

Public Class Form383940
    Dim I As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim CI As New DataTable
    Public Sub catherine()
        Dim Z As New OleDb.OleDbDataAdapter
        Z = New OleDb.OleDbDataAdapter("Select * From BARANG", I)
        CI.Rows.Clear()
        Z.Fill(CI)
        Z.Dispose()

    End Sub
    Private Sub Form383940_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        catherine()
        DataGridView1.DataSource = CI

    End Sub
End Class