[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إضافة لما قدّمه أخي العربي .. يمكن أن تقوم باستدعاء الكود التالي بحدث الفورم لود ..

كود :

   Public Sub Test_Max_Record()
       Call SNoNavigation()
       Dim InfoCommand As New OleDbCommand(" SELECT MAX(SerialNo) FROM Table1  ", OleCn)
       If OleCn.State = ConnectionState.Closed Then OleCn.Open()
       If InfoCommand.ExecuteScalar Is DBNull.Value Then
           txtSerialNo.Text = 1
       Else
           txtSerialNo.Text = InfoCommand.ExecuteScalar + 1
       End If
   End Sub

تحياتي