[Programmer-VB] Nomor Otomatis

[mukromin]

Selamat pagi rekan-rekan semua, saya punya koding seperti dibawah.

Sub NoUrut()
Set AdoNoUrut = New Recordset
AdoNoUrut.Open "Select Left(Max(tblIn.In_Id),4) As N from tblIn", db, 
adOpenStatic, adLockOptimistic
If AdoNoUrut.RecordCount = 0 Then
   N = 0
Else
   AdoNoUrut.MoveLast
   N = AdoNoUrut.Fields("N")
End If
N = N + 1
txtNomor.Text = Format(N, "0000") & "-" & Format(Now, "MMM-yy") & ("-" & "IN" )
End Sub


Private Sub cmdAdd_Click()
Call NoUrut
End Sub  


Pada saat cmdAdd diclick nomor otomatis urut ( N + 1 ). Masalahnya jika tblIn 
masih kosong nomor tidak otomatis
menjadi 1. Untuk nomor ke 2 dst tidak masalah. Mohon pencerahannya. Terima Kasih

Salam
Mukromin