Menyambungkan VB ke MS. Acces

Sekarang saya akan memberitahukan tentang bagaimana sich cara menyambungkan vb ke acces.
Itu salah satu program yang sangat sederhana yang saya buat tentang Laporan Data Siswa.
pertama, sebelum anda buat program vb yang nantinya akan masuk ke data base ms. acces jangan lupa untuk membuat data basenya terlebih dahulu.
Bagaimana caranya pastinya dah bisa dunk :P
Then kita masuk ke codenya, lets GOOOO!!!:

1. Code untuk commad SIMPAN
'Ini code yang dibutuhin biar bisa masuk di database jangan lupa pakai tanda titik (.) soalnya udah setingan dari sononya :P'
with data1.recordset
.add new
.fields!No = text_no.text
.fields!Nama = text_nama.text
.fields!Alamat = text_alamt.text
.update
end with
'end with diatas merupakan sebagai pernutup code untuk masukin data didatabase' 'code dibawah ini merupakan code untuk menghilangkan data yang ada di txt_no,nama,alamat supaya mempermudah untuk memasukkan data lainnnya'
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
data1.refresh
' data1.refresh berfungsi untuk menyegarkan data base setelah dimasukin data'
End sub

2. Code untuk command BATAL
Private sub cmd_batal_click()
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
End sub

3. Code untuk command HAPUS
Private sub cmd_hapus_click()
if data1.recordset.BOF or data1.EOF then exit sub
data1.recordset.delete
data1.refresh
End sub

4. Code untuk command EDIT
Private sub cmd_EDIT_click()
'Code edit hampir sama dengan code untuk simpan yang menjadi perbedaan kalau di cmd _simpan itu pakai .addnew and kalau di cmd_edit pakai .edit'
'code ini fungsinya, jika txt_nama, no, dan alamat tidak diisi maka akan tampil pesan box yang digunakan sebagai pengingat kalau anda lupa mengisi pada text tersebut'
if txt_nomor.text = " " then msgbox "Anda lupa mengisi nomor" :exit sub
if txt_nama.text = " " then msgbox "Anda lupa mengisi nama" :exit sub
if txt_alamat.text = " " then msgbox "Anda lupa mengisi alamat" :exit sub
'Ini code yang dibutuhin biar bisa masuk di database jangan lupa pakai tanda titik (.) soalnya udah setingan dari sononya :P'
with data1.recordset
.edit
.fields!No = text_no.text
.fields!Nama = text_nama.text
.fields!Alamat = text_alamt.text
.update
end with
'end with diatas merupakan sebagai pernutup code untuk masukin data didatabase' 'code dibawah ini merupakan code untuk menghilangkan data yang ada di txt_no,nama,alamat supaya mempermudah untuk memasukkan data lainnnya'
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
data1.refresh
' data1.refresh berfungsi untuk menyegarkan data base setelah dimasukin data'
End sub

5. Code untuk command EXIT
private sub cmd_exit_click()
'anda bisa pkai code unload me atau exit'
unload me
end sub

itulah code yang saya buat yang sangat sederhana, kalau anda tanya bagaimana code untuk pencarian, wihh saya lagi cari, kalau anda punya code buat pencarian data di acces, share aja bro..