Koneksi Database Access 2003 VB .Net 2013

Berikut ini adalah Cara Koneksi Database Access 2003 VB 2013.
Dalam membuat koneksi database Access 2003 dengan VB .Net 2013 maka yang perlu anda siapkan adalah Database dan Aplikasi VB 2013 sudah terinstal di komputer anda

#1 - Membuat Database dan Tabel dengan DB Access 2003
Buatlah sebuah database dengan nama : DBBelajarvb.mdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :

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

#2 -  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.jet.oledb.4.0;data source=DBBelajarvb.mdb"
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

Jika anda telah membuat Form, pastikan database yang anda buat pada tahap1, anda masukan pada Bin/Debug pada Folder Aplikasi VB 2013 yang anda buat.