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

السلام عليكم ورحمة الله وبركاته 
اخي الكريم ماتريده يسمى Max Id

كود :

 '----------Public Function MaxID VB.Net With Access direct ----------
   Public Function MaxID() As DataTable
       Dim Query As String = "Select IIF(MAX(اسم العمود) IS Null,1,MAX(اسم العمود)+1) From اسم الجدول"
       Dim Cmd As New OleDbCommand()
       Dim dt As New dataTable()
       dt.Clear()
       Cmd = New OleDbCommand(Query, Con)
       If Con.State = ConnectionState.Open Then Con.Close()
       Con.Open()
       Dim dr As OleDbDataReader = Cmd.ExecuteReader()
       dt.Load(dr)
       Con.Close()
       Return (dt)
   End Function
   ' ولاستدعاء الكود في بوتون تأتي الفيمة الى مربع نص
   Txt_Val_Id.Text = MaxId.Rows(0)(0)

اذا كنت تستخدم SQLserver فقط غير OleDbCommand الىٍSQlCommand و OleDbDataReader الى  ٍSqlDataReader