Koneksi Database Access 2007 VB .Net 2008

Cara Koneksi Database Access 2007 / 2010 / 2013 Dengan VB .Net 2008
Pembelajaran dibawah bisa anda gunakan untuk Koneksi database Access 2007 atau Access 2010 atau Access 2013

Berikut langkahnya :
1. Membuat Project Baru VB 2008 dan Menyimpannya
2. Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
    Bin / Debug akan muncul ketika anda telah membuat Project VB 2008
3. Design Form, Masukan Koding dan Jalankan Program

(1) - Membuat Project Baru VB 2008 dan Menyimpannya
Pastikan anda sudah Install Visual Basic 2008 pada komputer anda,
Klik Start pada Windows
All Programs

Klik Microsoft Visual Studio 2008
Klik File - New - Project

Maka akan Muncul :

Masukan Name, Location
Klik OK

Maka akan keluar Form1 (Seperti Gambar diatas )

#2 - Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBBelajarvb.accdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :

Jangan lupa, sebagai contoh masukan data ditabel Barang agar nantinya bisa terlihat :)

Setelah selesai, simpan pada folder Bin / Debug

(3) -  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah

Design form diatas hanya ditambahkan DataGridView1

Masukan Koding dibawah ini :

Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DataGridView1.DataSource = (ds.Tables("Barang"))
End Sub
End Class