Nomor Otomatis Gabungan Kata + Tahun + Nomor urut Vb 6

Cara buat nomor otomatis :

Ketik kodenya :

Sub GetNumber()
adoAgt.RecordSource = "select * from Anggota Where KodeAnggota In(Select Max(KodeAnggota)From Anggota)Order By KodeAnggota Desc"
adoAgt.Refresh
    Dim Urutan As String * 9
    Dim Hitung As Long
    With adoAgt.Recordset
        If .EOF Then
            Urutan = "AG" + Right(Date, 2) + "0001"
            KodeAnggota = Urutan
        Else
            If Mid(!KodeAnggota, 3, 2) <> Right(Date, 2) Then
                Urutan = "AG" + Right(Date, 2) + "0001"
            Else
            Hitung = Mid(!KodeAnggota, 3, 7) + 1
                Urutan = "AG" + (Right(Date, 2)) + Right("0000" & Hitung, 4)
        End If
        End If
        Text1.Text = Urutan
    End With
End Sub

Panggil kode GetNumber didalam tombol Tambah,, lalu ketik kodenya:
 Private Sub cmdinput_Click()
      GetNumber
 end sub










Sekian, semoga bermanfaat . . . ^_^