Script VB6 Auto Number

Component-component yang harus digunakan
1 buah Adodc
1 buah Command Button
1 buah Textbox
1 buah Label

Langkah:
Pertama-tama buatlah koneksi database dengan script dibawah ini

Sub Buka_Pembeli()
Set con = New ADODB.Connection
Set rsa = New ADODB.Recordset
conect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA"
con.Open conect
rsa.Open "Pembeli", con
End Sub

Untuk script auto numbernya, kopas dibawah ini

Call Buka_Pembeli
sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc"
Set rsa = con.Execute(sql)
With rsa
If .EOF Then
Label8.Caption = "001"
TxtIDPembeli.Text = Label8.Caption
Else
Label8.Caption = rsa.Fields("ID_Pembeli")
a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2))
b = Right("000" & Val(a + 1), 3)
TxtIDPembeli.Text = b
End If
End With

Semoga tutorial diatas dapat bermanfaat buat semua aja.