[elmezo]

اعمل الفنكشان دية واستدعيها فى زرار الحفظ وحتتحل المشكلة انشاء الله 
بس الاهم تغير الاسماء واسم الجدول يعنى تحط UsersID مكان userid  وتحط اسم الجدول مكان user

كود :

Public Function GetMaxUserID_Users_InDirect()

       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("select MAX(UserID) from Users", con)
       da.Fill(dt)

       Dim MyNewUserID_Users As Double

       If IsDBNull(dt(0)(0)) = True Then
           MyNewUserID_Users = 1
       Else
           MyNewUserID_Users = dt(0)(0) + 1
       End If

       Return MyNewUserID_Users

   End Function