Membuat No Automatis pada vb.NET

Asslamu'alaikum

      Membuat no urut/no faktur/no id/ dll dengan secara automatis sehingga tidak perlu input no 1, 2, 3, 4 ..... dst saat input program dijalankan. declarasi no urut ini adalah membaca no yang sudah ada di database dan kemudian jika dalam database belum ada no tsb maka akan di tambah 1. Misal di database hanya terdapat no 1 sampai 5, maka untuk inputan selanjutnya akan ditambah dengan 1, 5+1 = 6.

udah dari pada basa basi langsung aja.

1. buka vb kalian/ program kalian dimana no urut ini akan di pasang
2. ketikkan code berikut :

 Private Sub NomorUrutOtomatis()
        latihan.bukadatabase()
        latihan.PerintahSql.CommandType = CommandType.Text
        latihan.PerintahSql.CommandText = "Select NoUrut from gaji order by NoUrut Desc"
        latihan.Ketemu = latihan.PerintahSql.ExecuteReader

        Dim Nomor As String
        If Not latihan.Ketemu.Read Then  ' Belum ada data pada database
            Nomor = 1
        Else
            ' Ambil data paling atas lalu tambahkan dengan 1
            Nomor = Val(latihan.Ketemu("NoUrut")) + 1
        End If

        If Len(Trim(Nomor)) = 1 Then
            Label8.Text = "0000" & Nomor
        ElseIf Len(Trim(Nomor)) = 2 Then
            Label8.Text = "000" & Nomor
        ElseIf Len(Trim(Nomor)) = 3 & Nomor Then
            Label8.Text = "00" & Nomor
        ElseIf Len(Trim(Nomor)) = 4 Then
            Label8.Text = "0" & Nomor
        ElseIf Len(Trim(Nomor)) = 5 Then
            Label8.Text = Nomor
        End If
        latihan.tutup()
    End Sub

      Kira-kira seperti itu code nya, jika tidak jalan atau ada error kemungkinan class koneksi sobat berbeda. coba sobat sesuaikan class nya atau hannya mengetik code no urut nya saja.

sekian dari saya dan terima kasih ^_^