cara koneksi vb.net dengan access 2007

Contoh coding untuk melakukan koneksi ke database access 2007 adalah sebagai berikut:

Imports System.Data.OleDb

Public Class Form1
Mendefinisikan variabel - varabel untuk melakukan koneksi ke database dan query
Dim CONN As OleDbConnection
Dim DA As OleDbDataAdapter
Dim DS As New DataSet
Dim CMD As OleDbCommand
Dim DR As OleDbDataReader

Sub Koneksi()
Try
String koneksi ke database access 2007
CONN = New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=DBAccess2007.accdb")
CONN.Open()
MsgBox("koneksi sukses")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Menampilkan data ke datagrid
Call Koneksi()
DA = New OleDbDataAdapter("SELECT * FROM TBLUser", CONN)
DS = New DataSet
DA.Fill(DS)
DataGridView1.DataSource = DS.Tables(0)
DataGridView1.ReadOnly = True

Menampilkan data ke listbox
CMD = New OleDbCommand("SELECT * FROM TBLUser", CONN)
DR = CMD.ExecuteReader
Do While DR.Read
ListBox1.Items.Add(DR.Item("NAMA_user"))
Loop
End Sub
End Class