msaccess

'Contoh Dengan microsoft.ACE.oledb.12.0

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Module Module1
    Public Conn As OleDbConnection
    Public DA As OleDbDataAdapter
    Public DS As DataSet
    Public CMD As OleDbCommand
    Public DR As OleDbDataReader
    Public Sub Koneksi()
                Conn = New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=db_access.accdb")
        Conn.Open()
    End Sub
End Module

'Contoh Dengan microsoft.jet.oledb.4.0

Imports System.Data.OleDb
Module module_koneksi
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public ds As DataSet
    Public dr As OleDbDataReader
    Public da As OleDbDataAdapter
    Public lokasidata As String
    Public Sub konek()
        lokasidata = "provider=microsoft.jet.oledb.4.0;data source=db_access.mdb"
        conn = New OleDbConnection(lokasidata)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module