[VB.NET] الكود لا يعمل - نسخة قابلة للطباعة

كود :
Try



            For i As Integer = 0 To Ds.Tables("OrderForm").Rows.Count - 1

                If CustTextBox.Text = Ds.Tables("OrderForm").Rows(i).Item("Cust").ToString Then

                    MsgBox("Order added Before !", MsgBoxStyle.Information)

                    Exit Try

                End If

            Next





            Dim R As DataRow = Ds.Tables("OrderForm").NewRow

            R(0) = OrderNoTextBox.Text

            R(1) = CustTextBox.Text

            R(2) = CustNoTextBox.Text

            R(3) = FactoryTextBox.Text

            R(4) = QtyTextBox.Text

            R(5) = RaiseOnTextBox.Text

            Ds.Tables("OrderForm").Rows.Add(R)

            Cmdb = New OleDbCommandBuilder(Da)

            Me.BindingContext(Ds, "OrderForm").EndCurrentEdit()

            Ds.AcceptChanges()

            Da.Update(Dt)



            MsgBox("Order added successfully !", MsgBoxStyle.Information)



        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical)

        End Try