Autonumber pada VB6

Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

Sub auto()


 Dim Con As New ADODB.Connection
  Dim Rst As New ADODB.Recordset
  Dim s As String
    

 'mengatur dan membuka koneksi
   Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SPK.mdb;"
  '    Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOKIS;Data Source=OKA-881F6BA00CA"
    
    
    'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
    'kemudian hasilnya d tampung d field buatan dgn nama Nomor
    Rst.Open "select max(right(Kd_penilaian,4)) as kd from TB_Penilaian", Con, adOpenKeyset
    
    ''jika berisi null atau tdk ditemukan
    If IsNull(Rst!kd) Then
       Text1.Text = "0001" 'member nilai awal
    Else
     Text1.Text = "ID" & Format(Rst!kd + 1, "0000")
    End If
    
    Con.Close

End Sub

yang kemudian fungsi diatas bisa dipanggil pada button baru dengan cara

Call auto

screenshoot nya :