Membuat Fungsi koneksi Database dengan Visual basic

hee... ngontrak mata kuliah Bahasa Pemrograman 2 di kampus, membuat saya harus migrasi dari bahasa pemrograman Web ke Desktop, lumayan sulit sih. walaupun saya juga masih terbilang beginner dan baru banget di PHP tapi paling nggak saya udah terbiasa dengan gaya pemrogramannya yang Procedural. Jadi begitu belajar Visual Basic yang pake Event Driven lumayan mudeng jg (pemula ne di program).
Untung punya banyak temen yang antara lainnya ada yang jago banget di VB, jadi bisa belajar dengan temen.

Yupz, langsung saja membuat koneksi ke database MS Acces.
Pertama, buka program Visual basic dan kamu buat dulu databasenya serta tabel-tabel yang dibutuhkan melalui visual data manager yang terdapat di menu add-Ins.
setelah itu kamu bisa membuat sebuah module baru dengan cara klik kanan di menu Project sebelah kanan dan pilih add dan klik pada module atau bisa juga melalui menu Project dan pilih add module, lalu klik open.
maka sebuah module baru telah tercipta di project kamu.
dengan asumsi nama databasenya db_pustaka dan terdapat satu tabel dengan nama tb_anggota maka kita buat coding koneksi nya seperti ini di module :

Public db As DAO.Database
Public rsanggota As DAO.Recordset

Public Function koneksi() As Boolean
On Error GoTo Salah
Set db = DAO.OpenDatabase(App.Path & "/db_pustaka.mdb")
Set rsanggota = db.OpenRecordset("select *from tb_anggota", dbOpenDynaset)
koneksi = True
Exit Function
Salah:
koneksi = False
End Function

Berikut pengertian fungsi diatas:
Public Function koneksi() As Boolean : membuat sebuah fungsi yang bersifat public
On Error GoTo Salah, jika fungsi error maka langsung menuju ke variabel salah
Set db = DAO.OpenDatabase(App.Path & "/db_pustaka.mdb")
membuat koneksi ke database db_pustaka.mdb
Set rsanggota = db.OpenRecordset("select *from tb_anggota", dbOpenDynaset)
untuk memanggil tabel rsanggota (perintah query sql)
set koneksi bernilai awal= true
jika salah nilai koneksi jadi =false.

setelah itu ambil component data (Control data) dan letakkan di form kamu.
kamu bisa memanggil fungsi koneksi yang dibuat di module tadi dengan :
call koneksi
selesai dah, tinggal di kembangin aja sesuai keperluan, mau pake query antar tabel atau laen-laennya.

untuk perintah insert jadi gini:
rsanggota.AddNew
rsanggota!no_anggota = no_anggota.Text
rsanggota!nm_anggota = txtnm_anggota.Text
rsanggota.Update
Data1.Refresh
dimana rsanggota adalah nama tabel dan no_anggota adalah nama fieldnya yang di isi dengan, no_anggota.Text yang didapat dari form.
Sebelumnya bingung juga sih, karena untuk koneksi dan proses insert ke database nggak pake query, tapi setelah belajar jadi tau deh bahwa fungsi-fungsi tersebut sebagian telah di buat oleh Visual basic itu sendiri hee...