[مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود

PHP كود :
   Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        
        While bs2.Position + 1 & " / " & bs2.Count <> bs2.Count & " / " & bs2.Count
            While Val(TextBox28.Text) <= Val(TextBox30.Text)
                While bs1.Position + 1 & " / " & bs1.Count <> bs1.Count & " / " & bs1.Count

                    If Trim(TextBox2.Text) = Trim(TextBox21.Text) Then

                        TextBox16.Text = TextBox18.Text
                        TextBox17.Text = TextBox19.Text
                        TextBox7.Text = TextBox20.Text
                        Me.Refresh()
                        Dim tab1 As String
                        tab1 = Trim(TextBox28.Text)
                        ''Dim savInto As New OleDb.OleDbCommand("update tab1 set TextBox16.Text='" & Trim(TextBox18.Text) & "',TextBox17.Text='" & Trim(TextBox19.Text) & "',TextBox7.Text='" & Trim(TextBox20.Text) & "'", conn)
                        Dim savInto As New OleDb.OleDbCommand(String.Format("update [{0}] set [P]=@1,[Q]=@2,[G]=@3", TextBox28.Text), conn)
                        savInto.Parameters.AddWithValue("@1", Trim(TextBox18.Text))
                        savInto.Parameters.AddWithValue("@2", Trim(TextBox19.Text))
                        savInto.Parameters.AddWithValue("@3", Trim(TextBox20.Text))


                        conn.Open()
                        savInto.ExecuteNonQuery()

                        conn.Close()

                    End If
                    Button2.PerformClick()
                    Me.Refresh()
                End While









                Button9.PerformClick()
                Me.Refresh()

            End While

            TextBox28.Text = 1
            Button6.PerformClick()

            Me.Refresh()
        End While








    End Sub