how to fet rid of errors

[calou]

am having an error "querry is too complex" the scenario is this whenever i save the update it give's me the error then pointing my "rs.update" code here is my code

connection
 rs.Open "select * from permanent where num='" & num.Caption & "'", con, 3, 3
    If rs.RecordCount <> 0 Then
       rs.Update
       rs("num") = (num.Caption)
       rs("name") = UCase(txtname.Text)
       rs("sex") = (sex.Text)
       rs("year") = (year1.Text)
       rs("ncee") = (ncee.Text)
       rs("month") = (month.Text)
       rs("day") = (day.Text)
       rs("year1") = (year2.Text)
        rs("place") = (place.Text)
        rs("city") = (city.Text)
        rs("provincial") = (prov.Text)
        rs("parent") = (parent.Text)
        rs("address") = (address.Text)
        rs("primary") = (prim.Text)
        rs("year2") = (year3.Text)
        rs("intermediate") = (inte.Text)
        rs("year3") = (year4.Text)
        rs("high_school") = (high.Text)
        rs("year4") = (year5.Text)
        rs("year5") = (co1.Text)
        rs("elp1") = (elp1.Text)
        rs("no1") = (no1.Text)
        rs("final1") = (fin1.Text)
        rs("final2") = (fin2.Text)
       rs("final3") = (fin3.Text)
       rs("final4") = (fin4.Text)
       rs("final5") = (fin5.Text)
       rs("final6") = (fin6.Text)
       rs("final7") = (fin7.Text)
       rs("final8") = (fin8.Text)
       rs("re-xam1") = (re1.Text)
       rs("re-xam2") = (re2.Text)
       rs("re-xam3") = (re3.Text)
       rs("re-xam4") = (re4.Text)
       rs("re-xam5") = (re5.Text)
       rs("re-xam6") = (re6.Text)
       rs("re-xam7") = (re7.Text)
       rs("re-xam8") = (re8.Text)
       rs("units1") = (unit1.Text)
       rs("units2") = (unit2.Text)
       rs("units3") = (unit3.Text)
       rs("units4") = (unit4.Text)
       rs("units5") = (unit5.Text)
       rs("units6") = (unit6.Text)
       rs("units7") = (unit7.Text)
       rs("units8") = (unit8.Text)
       rs("remark1") = (rem1.Text)
       rs("remark2") = (rem2.Text)
       rs("remark3") = (rem3.Text)
       rs("remark4") = (rem4.Text)
       rs("remark5") = (rem5.Text)
       rs("remark6") = (rem6.Text)
       rs("remark7") = (rem7.Text)
       rs("remark8") = (rem8.Text)
       rs("year6") = (co3.Text)
       rs("elp2") = (elp2.Text)
       rs("no2") = (no2.Text)
       rs("final9") = (fin9.Text)
       rs("final10") = (fin10.Text)
       rs("final11") = (fin11.Text)
       rs("final12") = (fin12.Text)
       rs("final13") = (fin13.Text)
       rs("final14") = (fin14.Text)
       rs("final15") = (fin15.Text)
       rs("re-xam9") = (re9.Text)
       rs("re-xam10") = (re10.Text)
       rs("re-xam11") = (re11.Text)
       rs("re-xam12") = (re12.Text)
       rs("re-xam13") = (re13.Text)
       rs("re-xam14") = (re14.Text)
       rs("re-xam15") = (re15.Text)
       rs("unit9") = (unit9.Text)
       rs("unit10") = (unit10.Text)
       rs("unit11") = (unit11.Text)
       rs("unit12") = (unit12.Text)
       rs("unit13") = (unit13.Text)
       rs("unit14") = (unit14.Text)
       rs("unit15") = (unit15.Text)
       rs("remark9") = (rem9.Text)
       rs("remark10") = (rem10.Text)
       rs("remark11") = (rem11.Text)
       rs("remark12") = (rem12.Text)
       rs("remark13") = (rem13.Text)
       rs("remark14") = (rem14.Text)
       rs("remark15") = (rem15.Text)
       rs("year7") = (summer1.co5.Text)
       rs("elp3") = (summer1.elp3.Text)
       rs("no3") = (summer1.no3.Text)
       rs("final16") = (summer1.fin16.Text)
       rs("final17") = (summer1.fin17.Text)
       rs("final18") = (summer1.fin18.Text)
       rs("final19") = (summer1.fin19.Text)
       rs("final20") = (summer1.fin20.Text)
       rs("re-xam16") = (summer1.re16.Text)
        rs("re-xam17") = (summer1.re17.Text)
        rs("re-xam18") = (summer1.re18.Text)
        rs("re-xam19") = (summer1.re19.Text)
        rs("re-xam20") = (summer1.re20.Text)
        rs("unit16") = (summer1.unit16.Text)
       rs("unit17") = (summer1.unit17.Text)
       rs("unit18") = (summer1.unit18.Text)
       rs("unit19") = (summer1.unit19.Text)
       rs("unit20") = (summer1.unit20.Text)
       rs("remark16") = (summer1.rem16.Text)
       rs("remark17") = (summer1.rem17.Text)
       rs("remark18") = (summer1.rem18.Text)
       rs("remark19") = (summer1.rem19.Text)
       rs("remark20") = (summer1.rem20.Text)
       
       rs.Update
       End If
       rs.Close: Set rs = Nothing
       con.Close: Set con = Nothing
 End If

please help me i need to debug that error it cost my life

[si_the_geek]

Welcome to VBForums

It seems somebody else has copied your code and question, here... I provided an answer there.