Input Database Ms.Access Di Visual Basic

sore all..... maf nih baru posting lagi...maklum kemaren2 lagi sibuk bgt....heheheh (sok sibuk) :P
nih sya share bagaimana caranya " membuat form input dengan vb dengan database ms.access " heheheh maf mungkin postingan ini banyak di blog tetangga tpi ini asli hasil pembelajaran saya di kampus bukan CoPas heheheh Karena saya ga mau nantinya di bilang sarjana CoPaS hehhe ya udah langsung aja deh................

1. buat folder RumahSakit > Form,DataBase,Module
2. Buka Ms.Access ,
buat file access "RumahSakit.accdb"
buat table " Pasien ",
buat field : kodePasien (autonumber), NamaPasien Text(30), alamat (100),tempatLahir Text(20),TanggalLahir(date),JenisKelamin text(11), NomorTelepon text(15)
Simpan file acces "RumahSakit.accdb" ke dalam folder D:/Rumah Sakit
3. Buka Control Panel> Administrative tools>
Data Sources (ODBC) >=  System DSN > Add > microsoft access driver (*.Mdb *.accdb) > Data Sources Name : " DS_RumahSakit ", DataBase : Select > Cari Folder dimana anda menyimpan file access dan klik nama filenya hingga muncul di database name,
Klik OK > Jika menemukan Pesan error tutup terlebih dahulu program access nya....Trus OK deh
4. klik menu project > references > microsoft activex data object 2.6 library > centang > ok

5. Membuat Module Pada VB:
> From klik kanan > add > module lalu masukan Coding di bawah ini;
        Public CN As New ADODB.Connection
Sub main()
Set CN = New ADODB.Connection
CN.Open "DS_RumahSakit"
If CN.State Then
Form_pasien.Show
Else
MsgBox " sorry bray...ga konek nih "
End If
End Sub

6. Lalu klik Project > Properties > general : startup object > submain

7. lalu buat Desain Formnya
8. lalu buat coding formn ya seperti di bawah ini:

Private RS As New ADODB.Recordset
Private Sub CmdSave_Click()
Set RS = New ADODB.Recordset
RS.Open " select * from Pasien ", CN, adOpenStatic, adLockOptimistic
RS.AddNew
RS("NamaPasien") = "text1.text"
RS("Alamat") = Text2.Text
RS.Update
End Sub