[بشار الخلف]

         Public Function GetMaid() As Integer
        Dim x As Single = 1
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        Dim adp As New OleDbCommand("select max (IDInvoices) from Invoices", Conn)
        Try
            x = adp.ExecuteScalar
            Return x + 1
        Catch ex As Exception
            Return x
            Conn.Close()
        End Try

[Amir_Alzubidy]

السلام عليكم و رحمة الله 
اهلا بك اخي بشار
الواضح من الكود بأنك تقوم بتوليد رقم سجل بناء على اخر سجل موجود في الجدول 
على اي حال يجب ان يكون الحقل الخاص في التسلسل من نوع رقم 
و هذا التعديل : 

PHP كود :

       Try


            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If

            Dim x As Integer = 0
            Dim adp As New OleDb.OleDbCommand
            adp.Connection = Conn
            adp.CommandType = CommandType.Text
            adp.CommandText = "Select max (IDInvoices) FROM Invoices"

            If Not IsDBNull(adp.ExecuteScalar()) Then
                x = adp.ExecuteScalar() + 1
                MsgBox(x)
                Return

            Else
                x = 1
                MsgBox(x)
            End If
            Conn.Close()

        Catch ex As Exception
            MsgBox("Error: " + ex.ToString)
            Exit Sub
        End Try 


[بشار الخلف]

لو سمحت
مشكور على الرد ولكن لما افتح فاتورة جديدة ما بتغير الرقم القديم يعني بضل على اخر رقم ما بيعمل رقم جديد

[altho8]

المشكة هي انه يوجد قيمة فارغة 

تاكدي من ان الفاتورة ليست اول فاتورة