เวลาเพิ่มข้อมุลข้อมูลอื่นขึ้นแต่ตรงรหัสที่เป็น pk ไม่ขึ้นอ่ะค่ะ

Function getNextId() As String
'สั่งให้รันรหัสเองไปเรื่อยๆ
Dim sqlStr As String
sqlStr = "Select TOP(1) Personnel_id From person order by Personnel_id DESC "
Dim conn As New SqlConnection(dbcon.conString)
Dim cmd As New SqlCommand(sqlStr, conn)
Dim dr As SqlDataReader
conn.Open()
dr = cmd.ExecuteReader
Dim id As Integer = 0<<<<<<<<<<<<<<<<<<<<<<ตรงนี้ 
If dr.HasRows = True Then
dr.Read()
'ตัดตัว Pe ออก เริ่มเอามาจากตัวที่ 2
id = dr("Personnel_id").ToString.Substring(2, 4)<<<<<<<<<<<<<<<<<<<<<ตรงนี้อีกที่ค่ะ
dr.Close()
End If
conn.Close()
id = id + 1
Return "Pe" & id.ToString("0000")
End Function