كيف اضيف عدد لنص ؟؟؟

بسم الله الرحمن الرحيم

لدي جدول بيانات المرضى والمفتاح رقم المريض من نوع char

واريد ان يبدأ اول رقم من 0000001

وبالتالييجب عند اضافة سجل جديد ان يزيد الرقم بواحد فيصبح مثلا 0000002

ولكن للأسف الذي يحصل معي من خلال الكود ان الرقم الجديد يصبح 00000011

فتصبح عملية الجمع عبارة عن لصق نص بنص يعني ( "1" & "0000001" )

bmb.AddNew()
Dim cmdP As New SqlCommand("SELECT MAX(PatientID) FROM PATIENTS", CON)
CON.open
Me.txtPatientID.Text = cmdP.ExecuteScalar() + 1

فما هو الكود الصحيح لكي تتم عملية زيادة الترقيم بشكل صحيح ؟؟؟