Cara Membuat Kode Otomatis di VB.NET

Assalamualaikum Wr.Wb Ok kali ini saya akan memberikan ontoh bagaimana cara membuat kode tomatis di vb.net, langsung saja tanpa banyak cingcong. wkwk

• pertama buat dahulu modul koneksinya disini saya menggunakan database sql server , dan untuk contoh modul koneksi bisa di lihat disini
• kemudian anda buat sub baru terserah namanya apa disini saya memakai nama nomor2, berikut contoh kodingannya:

Sub nomor2()

        Try

            Call koneksi()

            cmd = New SqlCommand("select * from tbl_barang order by id_barang desc", con)

            rd = cmd.ExecuteReader

            rd.Read()

            If Not rd.HasRows Then

                TextBox1.Text = "BR0001"

            Else

                TextBox1.Text = Val(Microsoft.VisualBasic.Right(rd("id_barang").ToString, 4)) + 1

                If Len(TextBox1.Text) = 1 Then

                    TextBox1.Text = "BR000" & TextBox1.Text & ""

                ElseIf Len(TextBox1.Text) = 2 Then

                    TextBox1.Text = "BR00" & TextBox1.Text & ""

                ElseIf Len(TextBox1.Text) = 3 Then

                    TextBox1.Text = "BR0" & TextBox1.Text & ""

                ElseIf Len(TextBox1.Text) = 4 Then

                    TextBox1.Text = "BR" & TextBox1.Text & ""

                ElseIf Len(TextBox1.Text) = 5 Then

                    TextBox1.Text = "B" & TextBox1.Text & ""

                End If

            End If

        Catch ex As Exception

            MessageBox.Show("Terjadi kesalahan bro :" & ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End Try

    End Sub

nah begitulah contoh kodingannya silahkan dipahami :) , sekian dan teimakaih...