Membuat Kode Otomatis pada VB Clasic

Pagi kawanku semua,, ane mau share trik dikit nich tentang pemograman VB 6 atau yang lebih tenar dengan VB Clasic,, mungkin ente2 dah sering melihat aplikasi VB Clasic yang bisa munculin kode otomatis ketika input data baru,, langsung aja ya bro,,ini script coding nya...

Dim Urutan As String * 5 Dim Hitung As Byte If AdoAnggota.Recordset.RecordCount = 0 Then Urutan = "A0001" Else AdoAnggota.Recordset.MoveLast Hitung = Val(Right(AdoAnggota.Recordset!NoAgt, 4)) + 1 Urutan = "A" & Right("0000" & Hitung, 4) End If TxtNo.Text = Urutan
keterangan:

1. dim urutan as string >>variabel string yang akan kita pake untuk menampung hasil dari variabel hitung sebelum di tampilkan
2. dim hitung as byte >>variabel dengan type byte nantinya yang kita gunakan untuk penghitungan dan akan di tampung pada variabel urutan

bagi yang masih bingung ane share koding lengkapnya download
monggo di sedooott,,,semoga bermanfaat ya gan,,,