vb.net sql wont update a row but there is no error and another form can't close

Im working on a project and it has a lot of fields so bare with it. I need to edit an account but when I press the save button it post nothing error but it won't update and my frm_familyReg won't even close so I guess there is a problem.

Here is my code:

ElseIf ButtonChoice = 2 Then
        Dim AccountEdit As New DataSet
        Dim cmdEditFamilyInfo As New SqlCommand("UPDATE [186].[dbo].[familyInfo] SET pLname =@Lname , pFname =@Fname ," & _
                                                    "pMname =@Mname ,pExt = @pExt ,pReligion =@pReligion,pAddress=@Address,[pGender] =@Gender,[pCitizenship] =@pCitizenship, " & _
                                                    "pBirthday =@bDay,pBirthPlace = @bPlace,pCivilStatus = @CivilStat,pWorking = @pWorking,pOccupation =@pOccupation, " & _
                                                    "pStudying =@pStudying,pTSchool =@pTSchool,pHEducation =@pHEducation ,pDisability = pDisability,pYr =@pYr ,pPrecinct =@pPrecinct, " & _
                                                    "pYrBahay = @pYrBahay,pKPaninirahan =@pKPaninirahan ,pKPKanino = @pKPKanino,pKPUpa = @pKPUpa,pLTinitirhan = @pLTinitirhan,pLTukuyin = @pLTukuyin, " & _
                                                    "pKBahay = @pKBahay,pKtukuyin = @pKtukuyin,pMBahay = @pMBahay,pMTukuyin = @pMTukuyin,pMeralco = @pMeralco,pMaynilad = @pMaynilad,pTelepono = @pTelepono , " & _
                                                    "pBKita = @pBKita,pGPamilya = @pGPamilya,pKapitbahay = @pKapitbahay,pPalikuran = @pPalikuran,pPagluluto = @pPagluluto,pPTukuyin = @pPTukuyin,pTubig = @pTubig,pTTukuyin = @pTTukuyin, " & _
                                                    "pIlaw = @pIlaw,pITukuyin = @pITukuyin,pLTelevision = @pLTelevision,pLVideoke = @pLVideoke,pLSports = @pLSports,pLMusical = @pLMusical,pLReading = @pLReading,pLMalling = @pLMalling,pLHiking = @pLHiking , " & _
                                                    "pHAso = @pHAso,pHPusa = @pHPusa,pHManok = @pHManok,pHBaboy = @pHBaboy,pHIba = @pHIba,pHBilang = @pHBilang,pSKotse = @pSKotse,pSVan = @pSVan,pSJeepney = @pSJeepney,pSTricycle = @pSTricycle , " & _
                                                    "pSIba = @pSIba,pSBilang = @pSBilang,pKRadio = @pKRadio,pKAudio = @pKAudio,pKKaraoke = @pKKaraoke,pKPiano = @pKPiano,pKCellphone = @pKCellphone,pKTV = @pKTV,pKVideoP = @pKVideoP,pKCam = @pKCam , " & _
                                                    "pKWood = @pKWood,pKKerosene = @pKKerosene,pKLPG = @pKLPG,pKGas = @pKGas,pKEStove = @pKEStove,pKERange = @pKERange,pKMicrowave = @pKMicrowave,pKRef = @pKRef,pKFreezer = @pKFreezer,pKWashing = @pKWashing , " & _
                                                    "pKHeated = @pKHeated,pKAircon = @pKAircon,pKEFan = @pKEFan,pKETank = @pKETank,pKEHeater = @pKEHeater,pKComputer = @pKComputer,pKLaptop = @pKLaptop,pKSystem = @pKSystem,pKFlatI = @pKFlatI " & _
                                                    "WHERE pFnumber = @IDEdit", Connection)
            cmdEditFamilyInfo.CommandType = CommandType.Text
        cmdEditFamilyInfo.Parameters.AddWithValue("@IDEdit", frm_FamilyReg.txtIDnumber.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@Lname", frm_FamilyReg.txtLastName.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@Fname", frm_FamilyReg.txtFirstName.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@Mname", frm_FamilyReg.txtMiddleName.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pExt", frm_FamilyReg.txtExt.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pReligion", frm_FamilyReg.txtReligion.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@Address", frm_FamilyReg.txtAddress.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@Gender", frm_FamilyReg.cmbGender.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pCitizenship", frm_FamilyReg.txtCitizenship.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@bDay", frm_FamilyReg.dtpBirthDay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@bPlace", frm_FamilyReg.txtBirthPlace.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@CivilStat", frm_FamilyReg.cmbCivilStatus.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pWorking", frm_FamilyReg.chckWorking.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pOccupation", frm_FamilyReg.txtOccupation.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pStudying", frm_FamilyReg.chckStudying.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pTSchool", frm_FamilyReg.cmboTypeofSchool.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHEducation", frm_FamilyReg.cmboHighestEduc.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pDisability", frm_FamilyReg.chckDisability.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pYr", frm_FamilyReg.txtYrofStay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pPrecinct", frm_FamilyReg.txtPrecintNo.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pYrBahay", frm_FamilyReg.txtYrofStay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKPaninirahan", frm_FamilyReg.cmboKatayuan.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKPKanino", frm_FamilyReg.txtKanino.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKPUpa", frm_FamilyReg.txtUpa.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLTinitirhan", frm_FamilyReg.cmboLote.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLTukuyin", frm_FamilyReg.txtlTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKBahay", cmboBahay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKtukuyin", txtbTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pMBahay", cmbomBahay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pMTukuyin", txtmTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pMeralco", chckMeralco.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pMaynilad", chckMaynilad.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pTelepono", chckTelepono.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pBKita", frm_FamilyReg.txtKita.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pGPamilya", frm_FamilyReg.txtGastos.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKapitbahay", frm_FamilyReg.txtKapitbahay.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pPalikuran", frm_FamilyReg.cmboPalikuran.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pPagluluto", frm_FamilyReg.cmboPagluluto.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pPTukuyin", frm_FamilyReg.txtpTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pTubig", frm_FamilyReg.cmboTubig.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pTTukuyin", frm_FamilyReg.txttTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pIlaw", frm_FamilyReg.cmboIlaw.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pITukuyin", frm_FamilyReg.txtiTukuyin.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLTelevision", chckTelevision.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLVideoke", chckVideoke.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLSports", chckSports.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLMusical", chckMusicalInstruments.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLReading", chckReading.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLMalling", chckMalling.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pLHiking", chckHiking.CheckState)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHAso", txtAso.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHPusa", txtPusa.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHManok", txtManok.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHBaboy", txtBaboy.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHIba", TxtHIba.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pHBilang", txtHBilang.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSKotse", txtkotse.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSVan", txtVan.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSJeepney", txtJeepney.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSTricycle", txtTricycle.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSIba", txtSIba.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pSBilang", txtSBilang.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKRadio", txtRadio.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKAudio", txtSystem.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKKaraoke", txtKaraoke.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKPiano", txtKeyboard.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKCellphone", txtCp.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKTV", txtTV.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKVideoP", txtVideoP.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKCam", txtCamcorder.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKWood", txtWood.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKKerosene", txtKerosene.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKLPG", txtStove.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKGas", txtGas.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKEStove", txtElectric.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKERange", txtElectricCooking.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKMicrowave", txtOven.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKRef", txtRef.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKFreezer", txtFreezer.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKWashing", txtWashing.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKHeated", txtDryer.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKAircon", txtAirCon.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKEFan", txtFan.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKETank", txtTank.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKEHeater", txtHeater.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKComputer", txtComputer.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKLaptop", txtLaptop.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKSystem", txtGameSystem.Text)
            cmdEditFamilyInfo.Parameters.AddWithValue("@pKFlatI", txtFlatiron.Text)
            Dim dAdapter As New SqlDataAdapter(cmdEditFamilyInfo)
        dAdapter.Fill(AccountEdit)
        MsgBox("Information Successfuly Updated")
        frm_FamilyReg.Close()
        Me.Close()
        frm_FamilyMonitor.Show()

There is no error log so I don't know that is wrong with my codes.