No Faktur Otomatis Di Vb.Net 2013

Selamat Malam rekan-rekan kali ini saya akan menshare cara membuat no faktur.. no faktur ini akan otomatis angkanya bertambah jika transaksi dengan kode sebelumnya di simpan..
Berikut Adalah Design Tabel yg Saya Pakai dan anda hanya berpatokan pada field bayarid saja.


Langkah 1 : Drag Textbox ke dalam sebuah form
Langkah 2 : Ketik Coding Berikut Dibawah Public Class

Sub no_bayar()
        Dim kode, kodebaru, tgl As String
        Dim no As Integer
        tgl = Format(Now, "-dd-MM-yy")
        kon.Close()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT bayarid FROM bayar ORDER BY bayarid DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("bayarid")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "B-" + Format(no, "0000") + tgl
            TextBox1.Text = kodebaru
        Else
            TextBox1.Text = "B-0001" + tgl
        End If
        cek.Close()
        kon.Close()
    End Sub
Langkah 3 : klik 2 x di form yang mana hasilnya form1_load lalu ketikan koding berikut
call no_bayar()
Langkah 4 : Selesai Deh