Можно ли заменит эту писанину чем то по проще?
rs.Edit
rs("n") = N.Text
rs("ns") = NS.Text
rs("k") = K.Text
rs("kp") = KP.Text
rs("pa") = PA.Text
rs("tp") = TP.Text
rs("kco") = KCO.Text
rs("01-1") = Text1.Text
rs("01-2") = Text2.Text
rs("01-3") = Text3.Text
rs("01-4") = Text4.Text
rs("01-5") = Text5.Text
rs("01-6") = Text6.Text
rs("01-7") = Text7.Text
rs("01-8") = Text8.Text
rs("01-9") = Text9.Text
rs("01-10") = Text10.Text
rs.Updaters.Bookmark = rs.LastModified
MsgBox "Запись сохранена ", vbInformation, Caption
