Code:
cnData.Execute "update tblFinal set bp= '" & aTbl(y, 0) & "', cr= '" & aTbl(y, 1) & "', db= '" & aTbl(y, 2) & "' ,de= '" & aTbl(y, 3) & "',df= '" & aTbl(y, 4) & "', ep= '" & aTbl(y, 5) & "', fi= '" & aTbl(y, 6) & "', ic= '" & aTbl(y, 7) & "', ir= '" & aTbl(y, 8) & "', li= '" & aTbl(y, 9) & "', ll= '" & aTbl(y, 10) & "', ln= '" & aTbl(y, 11) & "', lr= '" & aTbl(y, 12) & "', ls= '" & aTbl(y, 13) & "', lv= '" & aTbl(y, 14) & "', ms= '" & aTbl(y, 15) & "', ng= '" & aTbl(y, 16) & "', np= '" & aTbl(y, 17) & "', oc= '" & aTbl(y, 18) & "', pn= '" & aTbl(y, 19) & "', py= '" & aTbl(y, 20) & "', rf= '" & aTbl(y, 21) & "', rl= '" & aTbl(y, 22) & "', rr= '" & aTbl(y, 23) & "', rv= '" & aTbl(y, 24) & "', sa= '" & aTbl(y, 25) & "', sc= '" & aTbl(y, 26) & "', sd= '" & aTbl(y, 27) & "', si= '" & aTbl(y, 28) & "', sn= '" & aTbl(y, 29) & "', sp= '" & aTbl(y, 30) & "', ss= '" & aTbl(y, 31) & "', ts= '" & aTbl(y, 32) & "', wo= '" & aTbl(y, 33) & "' "
Any help would be great.