Koneksi ADODB VB6 Dengan Microsoft Access

Assalamu'alaikum wr.wb.
Salam sejahtera dan hangat bagi kita semua...
Pada kesempatan kali ini saya akan memposting mengenai koneksi adodb vb6 dengan microsoft access 2003/2007. Cara yang saya akan berikan ini merupakan pilihan cara yang menurut saya simple dan mudah bagi rekan2 semua. Baiklah tidak usah panjang lebar saya akan menuliskan syntaxnya dalam beberapa tahap di bawah ini:

1. Buat sub koneksi adodb dengan syntax sebagai berikut saya memberikan contoh tentang penyewaan jd saya beri nama rspenyewaan silahkan rekan2 ubah sendiri sesuai keinginan:
Public conn As New ADODB.Connection Public rspenyewaan As New ADODB.Recordset Public Sub koneksi() Set conn = New ADODB.Connection Set rspenyewaan = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Persist Security Info=False" End Sub
Catatan: untuk database dengan microsot access 2003 maka Microsoft.Jet.OLEDB.4.0 sedangkan untuk microsotf access 2007 ubah dengan Microsoft.Jet.OLEDB.12.0
2. Langkah no 1 dibuat agar bisa dipakai secara global dan sebaiknya dibuat module saja agar efektif, lalu di bawah ini saya akan menuliskan syntax untuk menghubungkan database kedalam datagrid sebagai berikut:
Dim bm As Variant Private Sub form_activate() koneksi conn.CursorLocation = adUseClient rspenyewaan.Open "select * from penyewaan", conn With rspenyewaan If Not (.BOF And .EOF) Then bm = .Bookmark Else MsgBox "Data Kosong...!", vbCritical, "Informasi" DataGrid1.Enabled = False DataGrid1.Refresh Exit Sub End If End With Set DataGrid1.DataSource = rspenyewaan.DataSource DataGrid1.Refresh End Sub

Dan itulah 2 tahap beserta syntax yang berhubungan dengan koneksi adodb dalam vb6. Demikianlah postingan saya kali ini yang dapat saya sampaikan. Mohon ma'af bila terdapat kesalahan dalam penulisan/sytanx dan semoga dapat bermanfaat bagi rekan2 sekalian.

Terimakasih oi...