pls help me what is wrong with this code is not updating my changes to database

[jamiuisiaqq]

Dim Dtables1 As New LoanDataSet.Table_StaffLoansApplication_SetUpsDataTable
 
    Dim DAdapters1 As New LoanDataSetTableAdapters.Table_StaffLoansApplication_SetUpsTableAdapter
 
 
                        With Drow
                        .BeginEdit()
                        '.Approve = 0
                        '.Post = 0
                        '.RefNo = Me.TextBoxrefno.Text
                            .RePayAmount = Me.TextBoxrefund.Text
                            .InterestAmount = Me.TextBoxinterrest.Text
                            .RequestedAmount = Me.TextBoxrequestedamt.Text
                            .MonthlyRepay = Me.TextBoxmonthlyrepay.Text
                            .Percentage = ComboBoxpercentage.Text
                            .Period = ComboBoxperiod.Text
                        .Unit = Me.TextBoxunit.Text.Replace("'", "").Trim.ToString
                            .Dept = Me.TextBoxdept.Text.Replace("'", "").Trim.ToString
                            .Description = Me.TextBoxdescription.Text.Replace("'", "").Trim.ToString
                        .Approveby = "Kazeem"
                        .Audit = "Kazeem"
                        .Auditedby = "Kazeem"
                        .StaffId = Sid
                            .StaffName = Sname.Replace("'", "").Trim.ToString
                            .SystemDate = Date.Today
                        ' .SystemIds = Id
                            .TransactionDate = Date.Today
                            .LoanType = Me.ComboBoxloantype.Text
                            .LoantypeId = ComboBoxloantype.SelectedValue
                        .EndEdit()
 
                    End With
 
 
                    DAdapters1.Update(Dtables1)
                    DAdapters1.Adapter.Update(Dtables1)