Menyimpan Data Di Dabatabase Microsoft Acces dengan Visual Basic .Net

Pengantar

Kalian bertanya bagaimana caranya menyimpan data pada Microsoft Access dengan menggunakan visual basic.net sebenarnya mudah saja yang pertama yang harus kita perhatikan adalah fungsi daripada tetap sendiri maksudnya fungsi bahwa database itu adalah tempat pengolahan data yang besar jadi nanti untuk entri yaitu dilakukan oleh banyak orang yang pertama kita lakukan dengan perintah impor sistem data oleh b kemudian ke tambak pabrik kelas barang karena data-data barang kemudian kita koneksikan setelah koneksi baru kita bisa menampilkan bagaimana dengan menyimpan jikalau telah terkoneksi kemudian kita simpan data balik lagi kita tampilkan adapun kodenya sebagai berikut ini pertemuan minggu ini terima kasih saya akan menunggu pertanyaan dari tarian saya ingin tahu sejauh mana pemahaman kalian tentang materi yang saya berikan.

Kode

Imports System.Data.OleDb

Public Class frmBarang
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Public Sub OpenDB()
        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;; Data Source =C:\Users\Alasi\Documents\mdbTomy.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Dim sqlBarang As String = "select *from barang"
    Dim sqlRelasi As String = "select penjualan.kode, pembeli.nama as Pembeli,pembeli.alamat as AlamatPembeli,barang.nama as barang,barang.hargajual as harga,penjualan.jumlah as jumlahbeli,penjualan.jumlah*barang.hargajual as Bayar,penjual.nama as penjualfrom penjualan, pembeli, barang, penjual where penjualan.pembeli = pembeli.kode and penjualan.barang = barang.kode and penjualan.pembeli=pembeli.kode order by penjualan.kode asc;"

    Sub Tampil()
        ADP = New OleDbDataAdapter(sqlBarang, DB)
        DS = New DataSet
        ADP.Fill(DS, "barang")
        dgv.DataSource = DS.Tables("barang")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        OpenDB()
        Tampil()
    End Sub


    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
        SQL = "insert into barang values('" & txtKode.Text & "','" & _
    txtNama.Text & "','" & _
    txtHargaBeli.Text & "','" & _
    txtHargaJual.Text & "','" & _
    txtStok.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Tampil()
        HapusTeks()
    End Sub
    Sub HapusTeks()

    End Sub
End Class

Tampilan