[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي سلام 
هذا فنكشن يجلب قيمة الماكس ثم يضيف 1 

كود :

'-------------Function MaxID------------
Public function MaxID_Personal() as integer
Dim Maxid = (from P in DBcontext.Personals select P.Cv_Id).Max()
if Maxid = 0 Then
return Maxid = 1
Else
return Maxid + 1
End if
End Function

وفي بوتون جديد ننادي عليه بحيث يضع القيمة العائدة في مربع الايدي 

كود :

Txt_Cv_Id.Text = MaxId().ToString()

يبقى امر تعرفه وهو تغيير الاسماء للجدول والداتابيس ومربع نص اي دي