Public Class Form383940_46109023
    Dim ismi As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=cimi")

    Private Sub Form3839400_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cimi As New OleDb.OleDbDataAdapter
        cimi = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", conect)
        ismi.Rows.Clear()
        cimi.Fill(ismi)
        cimi.Dispose()

        DATA46109023.DataSource = ismi

    End Sub

    Private Sub DATA46109001_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA46109023.CellContentClick

    End Sub
End Class