Latihan 38,39,40

Public Class Tugas383940_36109067

    Dim V As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim dt1 As New DataTable

    Public Sub valentine()
        Dim H As New OleDb.OleDbDataAdapter
        H = New OleDb.OleDbDataAdapter("Select * From BARANG", V)
        dt1.Rows.Clear()
        H.Fill(dt1)
        H.Dispose()
    End Sub

    Private Sub Latihan383940017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        valentine()
        DGV38.DataSource = dt1
    End Sub
End Class