ник: debilder
это в средине:
rstN5.Update "NN", xlWB.Sheets("DOD5").Cells(B & "", "A")
rstN5.Update "OC_PIB", xlWB.Sheets("DOD5").Cells(B & "", "B")
rstN5.Update "D_VST", xlWB.Sheets("DOD5").Cells(B & "", "C")
rstN5.Update "N_VST", xlWB.Sheets("DOD5").Cells(B & "", "D")