Penomoran Otomatis Mengunakan VB6

Teknik Penomoran Otomatis (Uuto Number) Sangat Effektive untuk validasi data saat penginputan agar user tidak salah dalam melakukan penomberan. banyangkan dalam satu table transaksi memiliki beberapa nomber transaksi yang mana setiap ada transaksi nomber tersebut selalu bertambah atau berubah. biar lebih singkat bisa di baca dalam source VB 6 di bawah ini :
sub autoNumber()
dim SQLStr, Auto As string , rsdata as new adodb.recordset
Koneksi
SQLStr = "Select Max(Right("transaksiNumber",7) as No From Tabel1"
rsdata,open SQLStr, Con
if isnull(rsdata!No) Then
   Auto = "0000001"
else
   Auto = & Format(rsdata!No + 1, "0000000")
end if
end Sub