حضرتك انا فتحت المشروع
المفروض انك تعمل ترقيم تلقائى فى حدث load form
وعند الضغط على حفظ تعمل نفس الترقيم التلقائى بعد كود حفظ الفاتورة
كود الترقيم التلقائى
Dim cmd As New OleDbCommand
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "select max(invno)from [inv]"
con.Open()
Dim a As Integer = cmd.ExecuteScalar
con.Close()
txtinvno.Text = a + 1