مشكله فى فاتورة المبيعات ارجو المساعده

PHP كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       


       'Dim q As Integer
       'For q = 0 To dgvprodac.Rows.Count - 1
       '    If Convert.ToInt32(dgvprodac.Rows(q).Cells("qty").Value < dgvprodac.Rows(q).Cells("talab").Value) Then
       '        dgvprodac.Rows(q).Cells("qty").Style.BackColor = Color.Red
       '    End If
       'Next


       For i = 0 To dgvprodac.Columns.Count - 1
           dgvprodac.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable

       Next


       Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
       Dim dt As New DataTable
       pd = Me.BindingContext(dt)
       da.Fill(dt)
       Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
       Dim gh As New AutoCompleteStringCollection()
       gh.AddRange(itms)
       txtlabel.AutoCompleteCustomSource = gh
       txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
       txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource


    

       Try
           con.Open()
           sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
           cmd = New OleDbCommand(sqlstr, con)
           txtnamper.Text = cmd.ExecuteScalar()
           ' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
           TXTGNAME.Text = fullname
           con.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


   End Sub