Program Visual Basic [NIP PENDUDUK]

Dim sambung, j As String
Dim kon As New ADODB.Connection


Private Sub Command1_Click()
Set kos = New ADODB.Recordset
kos.Open "penduduk", kon, adOpenKeyset, adLockBatchOptimistic
kos.AddNew
kos!nama = nm
kos!nip = nip
kos.UpdateBatch adAffectAllChapters
Set dg.DataSource = kos
End Sub


Private Sub Form_Load()
sambung = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\penduduk.mdb;Persist Security Info=False"
Set kon = New ADODB.Connection
kon.Open sambung
kon.CursorLocation = adUseClient
Set rpen = New ADODB.Recordset
rpen.Open "penduduk", kon, adOpenKeyset, adLockBatchOptimistic
Set dg.DataSource = rpen
nm = ""
tgl = Format(Now(), ddmmyy)
kota = "PILIH DISINI"
nip = ""
End Sub


Private Sub kota_lostfocus()
otomat
End Sub


Private Sub tgl_lostfocus()
otomat
End Sub


Private Sub otomat()
kd = Trim(Str(kota.ListIndex)) & Trim(Format(tglh, "ddmmyy"))
Set rg = New ADODB.Recordset
rg.Open "select * from penduduk where left(nip,7)='" & Trim(kd) & "'", kon, adOpenKeyset
If rg.RecordCount = 0 Then
nip = kd & "01"
Else
rg.MoveLast
no = Val(Right(rg!nip, 2)) + 1
If no < 10 Then
nip = kd & "0" & Trim(Str(no))
Else
nip = kd & Trim(Str(no))
End If
End If
Set dg.DataSource = rg
End Sub