[MSDOS]

بناءً على المثال

ضع هذا الكود في أخر حدث تحميل الفورم Form_Load

كود :

Dim dtJobTicketNo As New DataTable
Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(tid)+1 AS JobTicketNo from country", Cost)
Cost.Open()
TextBox2.Text = dcJobTicketNo.ExecuteScalar
        Cost.Close()