kalo gw seh biasa pake ...
Private Sub cmd_save_Click( )
Adodc1.ConnectionSt ring = "Provider=Microsoft .Jet.OLEDB. 4.0; " & _
"Data
Source=C:\Program Files\joenware\ Pengloahan KTP\data\dbKTP. mdb"
Adodc1.RecordSource
= "SELECT * FROM T_PENDUDUK"
Adodc1.Refresh
with Adodc1.recordset
.addnew
!nama = txt_nama.Text
!tempat =
txt_tempat.Text
!tglahir = txt_tglahir. Text
!kelamin =
txt_kelamin. Text
!alamat = txt_alamat.Text
!rtrw = txt_rtrw.Text
!desa
= txt_kel.Text
!kecamatan = txt_kec.Text
!agama = txt_agama.Text
!Status
= txt_nikah.Text
!kerja = txt_job.Text
!berlaku = txt_expire.Text
!warga
= txt_warga.Text
.update
End Sub
Mulai chatting dengan teman di Yahoo! Pingbox baru sekarang!! Membuat
tempat chat pribadi di blog Anda sekarang sangatlah mudah.
http://id.messenger.yahoo.com/pingbox/
