VB.NET Autonumber

Pada tutorial kali ini saya akan membuat Autonumber

Sub AutoNumber()
 Dim strTemp As String = ""
 Dim strValue As String = ""
 Dim Sql As SqlCommand = New SqlCommand("select  kd_cabang from tblcabang order by kd_cabang desc", Conn.Koneksi)
 Dim cari As SqlDataReader
 cari = Sql.ExecuteReader
  If cari.Read Then
     strTemp = Mid(cari.Item("kd_cabang"), 4, 5)
  Else
     txtkode.Text = "CB-00001"
     Exit Sub
  End If
     strValue = Val(strTemp) + 1
     txtkode.Text = "CB-" & Mid("00000", 1, 5 - strValue.Length) & strValue

  End Sub

demikian, terima kasih