Auto Number ( penomoran automatis untuk kode unik ) VB.NET

Kadang kala kita membutuhkan sebuah fungsi penomoran otomatis pada kode atau id unik pada suatu record. Id ini misalnnya id pelanggan, id transaksi, id barang dan lain lain. id id tersebut harusnya muncul secara otomatis agar menghemat waktu dalam menginput data.
beriut cara membuat penomoran otomatis tersebut:
1.sebagai contoh txtid parkir yang akan dibuat id otomatis. Sedngakan inisial id tersebut ber awalna P.
         

  2. Form tersebut misalnya terhubung dengan tb_parkir dengan field Id_Parkir. Maka kodingnya sebagai berikut;

  TxtIdParkir.Enabled = False

        Dim strSementara As String = ""

        Dim strIsi As String = ""

        cmd = New SqlCommand("select * from Tb_Parkir order by ID_Parkir desc", conn)

        rd = cmd.ExecuteReader

        If rd.Read Then

            strSementara = Mid(rd.Item("ID_Parkir"), 2, 2)

            strIsi = Val(strSementara) + 1

            TxtIdParkir.Text = "P" + Mid("0", 1, 2 - strIsi.Length) & strIsi

        Else

            TxtIdParkir.Text = "P01"

        End If

        TxtPlatnomor.Focus()        

  3.  koding tersebut akan menghasilkan kode id dari p01, p02 ,,, dan seterusnya.

     pertama x dijalankan karena id terakhir adalah p08 maka id parkir terisi PO9.

   setelah data disimpan, auto number akan menghasilkan P10 pada Id Parkir.

 Semoga bermanfaat.. dan jangan lupa dokumentasikan ilmu anda...!