ID Auto Number di Vb.net

Membuat "Automatic ID Number" (nomor ID Otomatis) sering dilakukan dalam hal pemrograman. jika pemrogramannya berbasis client-server, atau berbasis databases, pembuatan ID numbernya bisa dilakukan di dua sisi, disisi aplikasi pemrogramnnya atau disisi basis datanya (database). berikut cara pembuatan auto number menggunakan Vb.net. 

1. Buatlah objek "txtKode"
2. Copy script dibawah ini!
    Sub IdReg()
        'Membuat kode dengan 6 digit
        txtKode.Text = Format(GenerateCD, "000000")
    End Sub

    Public Function GenerateCD() As Integer
      
        'contoh pengambilan dari tabel "data_barang"
        cSelect("SELECT MAX(right(barang_kode, 6)) as Nomor " & _
                "FROM data_barang ")
        rdr.Read()
        If rdr.HasRows Then
            If IsDBNull(rdr.Item("Nomor")) = True Then
                GenerateCD = 1
            Else
                GenerateCD = Val(rdr.Item("Nomor")) + 1
            End If
        Else
            GenerateCD = 1
        End If
        rdr.Close()

    End Function

Cara Panggil ==> call idreg()