tugas 38_39_40_36109015

Public Class Form38_39_40_36109015
    Dim ridha As New DataTable
    Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")

    Private Sub Form38_39_40_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rs As New OleDb.OleDbDataAdapter
        rs = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", risa)
        ridha.Rows.Clear()
        rs.Fill(ridha)
        rs.Dispose()

        DGV_36109015.DataSource = ridha
    End Sub
End Class