Koneksi VB.net dengan MS.Access

cara membuat koneksi menggunakan VB.net dengan acces ketika membuat suatu aplikasi program

Code:

Import System.Data.OleDb
public class form1
dim kns as new OleDbConnection
dim da as new OleDbDataAdapter
dim dt as new datatable
Public Sub form1_load( ...... ) mybase.load
'ini utk access 2003 kebawah
kns.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'"
'Ni tuk Access 2007 kebawah

'kns.ConnectionString = "Provider = Microsoft.Ace.OleDb.12.0;data
source=*.mdb/*accdb;Jet Oledb:Database Password='passku'"
da.SelectCommand=new oledbCommand("select * from tabel1",kns)
da.fill(dt)
datagridview1.datasource=dt
end sub
end class



penjelasan dari coding tersebut

Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class DatabaseConnection
Dim conect As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "xxxx.mdb;")
Public Function open() As OleDbConnection
conect.Open()

Return conect
End Function

Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace

Objek Connection,...
obyek Connection di gunakan untuk membuat koneksi database, kita dapat menggunakan Sqlconnection untuk SQL Server, Dan OleDBConnection Untuk koneksi ke accces,..

Untuk SQL Server
Import System.Data.SqlClient
Untuk sumber lain tinggal di ganti codingnya menjadi
Import System.Data.OleDb

Code Dibawah ini untuk melakukan koneksi ke SQL Server
Dim connect As New SqlClient.SqlConnection("Server = 'nama database d sql'; uid='sa'; pwd=' '; integrated security=false;database=='NCS'")

Untuk koneksi sumber yang lain misalnya acces sebagai berikut :
Dim connect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "nama database;")

Untuk membuka koneksi database
Connect.open()

Untuk menutup Koneksi Database
Connect.Close()