Koding Kode Otomatis pada TextBox (bisa untuk primary key)

Koding Kode Otomatis pada TextBox
.
.
temen2 paham gak, gimana caranya kalo misal primary key itu supaya gak nginputin manual?
misal untuk "kode_petugas" gak harus nginputin manual, kebayang kan kalo udah capek2 nginput taunya ada yang sama.
..
coba pake koding di bawah ini, bikin prosedur baru terserah mo namain apaan.
----------------------------------------------------------------------------------------
Sub buka()
        cmd = New OleDbCommand("select * from tabeladmin order by username desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            Tusername.Text = "AD" + "0001"
        Else
            Tusername.Text = Val(Microsoft.VisualBasic.Mid(dr.Item("username").ToString, 4, 3)) + 1
            If Len(Tusername.Text) = 1 Then
                Tusername.Text = "AD000" & Tusername.Text & ""
            ElseIf Len(Tusername.Text) = 2 Then
                Tusername.Text = "AD00" & Tusername.Text & ""
            ElseIf Len(Tusername.Text) = 3 Then
                Tusername.Text = "AD0" & Tusername.Text & ""
            End If
        End If
    End Sub
-------------------------------------------------------------------------------------------
*nah jgn lupa panggil di form_load yak...