Kode Simpan dalam pembuatan KTP :

Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!NIK = Text12.Text
!nama = Text13.Text
!TEMPAT_LHR = Text14.Text
!TGL_LHR = Text15.Text
!RT = Text5.Text
!RW = Text6.Text
!KEC = Text8.Text
!KELURAHAN = Text7.Text
!AGAMA = Combo1.Text
!PEKERJAAN = Text9.Text
!WARGA = Text10.Text
!BERLAKU = Text11.Text
!GOL = Combo2.Text
!Loc = Text16.Text
!PIC = Image1



If Option3.Value = True Then
Adodc1.Recordset!JK = "Laki-Laki"
Else
If Option4.Value = True Then
Adodc1.Recordset!JK = "Perempuan"
End If
End If

If Check4.Value = 1 Then
Adodc1.Recordset!Status = "BELUM KAWIN"
Else
If Check5.Value = 1 Then
Adodc1.Recordset!Status = "KAWIN"
End If
End If

Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text16.Text = ""
Option3.Refresh
Option4.Refresh
Check4.Refresh
Check5.Refresh
.Update
End With
End Sub

Kode Hapus dalam pembuatan KTP

Private Sub Command2_Click()
With Adodc1.Recordset
MsgBox "Hapus Data Ini ?"
.Delete
End With
End Sub

Kode keluar dalam pembuatan KTP

Private Sub Command3_Click()
MsgBox "Keluar Aplikasi Ini ?"
End
End Sub

Kode vb edit dalam pembuatan KTP

Private Sub Command6_Clickt
Command1.Enabled = False
Command2.Enabled = False
With Adodc1.Recordset
 Text12.Text = !NIK
 Text13.Text = !nama
 Text14.Text = !TEMPAT_LHR
 Text15.Text = !TGL_LHR
 Text5.Text = !RT
 Text6.Text = !RW
 Text8.Text = !KEC
 Text7.Text = !KELURAHAN
 Text9.Text = !PEKERJAAN
 Text10.Text = !WARGA
 Text11.Text = !BERLAKU
 Combo1.Text = !AGAMA
 Combo2.Text = !GOL
 Option3.Refresh
 Option4.Refresh
End With
End Sub

Kode vb UPDATE  dalam pembuatan KTP

Private Sub Command7_Click
Command1.Enabled = True
Command2.Enabled = True
Command5.Enabled = True

With Adodc1.Recordset
.Update
!NIK = Text12.Text
!nama = Text13.Text
!TEMPAT_LHR = Text14.Text
!TGL_LHR = Text15.Text
!RT = Text5.Text
!RW = Text6.Text
!KEC = Text8.Text
!KELURAHAN = Text7.Text
!AGAMA = Combo1.Text
!PEKERJAAN = Text9.Text
!WARGA = Text10.Text
!BERLAKU = Text11.Text
!GOL = Combo2.Text
!Loc = Text16.Text
!PIC = Image1

If Option3.Value = True Then
Adodc1.Recordset!JK = "Laki-Laki"
Else
If Option4.Value = True Then
Adodc1.Recordset!JK = "Perempuan"
End If
End If

If Check4.Value = 1 Then
Adodc1.Recordset!Status = "BELUM KAWIN"
Else
If Check5.Value = 1 Then
Adodc1.Recordset!Status = "KAWIN"

End If
End If

Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text16.Text = ""
Option3.Refresh
Option4.Refresh
Check4.Refresh
Check5.Refresh
Image1.Refresh
Combo1.Refresh
End With
End Sub

Kode vb BATAL dalam pembuatan KTP

Private Sub Command8_Click
Command1.Enabled = True
Command2.Enabled = True
Command5.Enabled = True

Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Option3.Refresh
Option4.Refresh
Check4.Refresh
Check5.Refresh
End Sub