Koneksi Database Access 2003 VB .Net 2008

Cara Koneksi Database Access 2003 Dengan VB .Net 2008.
Berikut langkahnya :
1. Membuat Project Baru VB 2008 dan Menyimpannya
2. Membuat Database Access 2003 , Tabel Barang dan menyimpannya pada Bin / Debug
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 2003 , Tabel Barang dan menyimpannya pada Bin / Debug
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 :)

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.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

Jalankan Aplikasi anda :)

Salam,
BelajarVB.com