ما الخطأ في كود الحفظ الآتي

أخواني السلام عليكم ورحمة الله

أنا لدي مشكلة في كود حفظ سجلات بناء على شرط تحقق من وجود قيمة داخل تكست بوكس أو لا

فمثلا إذا كان هناك قيمة قيمة داخل تكست بوكس txtmada1 يقوم بحفظ هذا السجل أما إذا كان التكست بوكس فارغ فلم يحفظه وينتقل إلى التكست بوكس التالي

وإذا كان هناك قيمة قيمة داخل تكست بوكس txtmada2 يقوم بحفظ هذا السجل

فأنا كتبت الكود كما يلي وضعت شرط التحقق من وجود قيمة داخل التكست بوكس أم لا ولكن المشكلة أنه عند الضغط على زر حفظ يقوم بحفظ كافة الصفوف التكست بوكس وحتى التكست بوكس الفارغ يحفظه ولكن يترك بياناته فارغة

فكيف أقوم بهذه العملية وتسهيلا للأمر فوضعت صورة للمشكلة وجزاكم الله خيرا

علما بأني مستخدم فيجوال بيسك دوت نت 2005 وقاعدة بيانات أكسس 2003

وهذا الكود هو

        Dim issql As String = "SELECT * FROM accountrelay WHERE stno LIKE '" + txtst.Text + "' And sanadno LIKE '" + txtsanadno.Text + "'"
        Dim isds As New DataSet
        Dim isda As New OleDbDataAdapter(issql, Cn)
        isda.Fill(isds, "accountrelay")

        If cmbost.Text = "" Or cmbosaf.Text = "" Or cmbofasl.Text = "" Or txtsanadno.Text = "" Or cmbomethod.Text = "" Then
            MsgBox("يجب إكمال البيانات", MsgBoxStyle.Critical, "رسالة خطأ")
            Exit Sub
        ElseIf Me.BindingContext(isds, "accountrelay").Count > 0 And bAdd = True Then
            MsgBox("رقم السند واسم الطالب قيد الاستخدام جرب آخر !!!", MsgBoxStyle.Critical, "خطأ")
            Enable(True)
        Else
            Dim cmdB As New OleDbCommandBuilder(Da)
            Dim addRow As DataRow
            If bAdd = True Then
                If txtmada1.Text <> " " Then
                    addRow = Ds.Tables("accountrelay").NewRow
                    addRow.Item("stno") = Trim(txtst.Text)
                    addRow.Item("alsaf") = Trim(txtsaf.Text)
                    addRow.Item("maddabalance1") = Trim(txtbalance1.Text)
                    Ds.Tables("accountrelay").Rows.Add(addRow)
                    Da.Update(Ds, "accountrelay")
                End If
                If txtmada2.Text <> " " Then
                    addRow = Ds.Tables("accountrelay").NewRow
                    addRow.Item("stno") = Trim(txtst.Text)
                    addRow.Item("alsaf") = Trim(txtsaf.Text)
                    addRow.Item("maddabalance1") = Trim(txtbalance1.Text)
                    Ds.Tables("accountrelay").Rows.Add(addRow)
                    Da.Update(Ds, "accountrelay")
                End If 
                Ds.Tables("accountrelay").Rows.Add(addRow)
                Da.Update(Ds, "accountrelay")
                MsgBox("تمت عملية الحفظ بنجاح")
            Else
                With Ds.Tables("accountrelay").Rows(RowP)
                    .Item("stno") = Trim(txtst.Text)
                    .Item("alsaf") = Trim(txtsaf.Text)
                    .Item("alfasl") = Trim(txtfasl.Text)
                    .Item("paydate") = CDate(Trim(dtpicker.Text))
                    .Item("sanadno") = Trim(txtsanadno.Text)
                    .Item("payment") = Trim(txtpayment.Text)
                    .Item("balance") = Trim(txtbalance.Text)
                    .Item("method") = Trim(cmbomethod.Text)
                    .Item("bankname") = Trim(txtbankname.Text)
                    .Item("bankbranch") = Trim(txtbankbranch.Text)
                    .Item("maddano1") = Trim(txtmada11.Text)
                    .Item("maddapayment1") = Trim(txtpayment1.Text)
                    .Item("maddabalance1") = Trim(txtbalance1.Text)
                End With
                Da.Update(Ds, "accountrelay")
                MsgBox("تمت عملية حفظ تعديلات السجل الحالي " & RowP)
            End If
        End If
        Enable(True)
        ViewRecord(RowP)
        Ds.Clear()
        Da.Fill(Ds, "accountrelay")
        GiveNumber()