..........................................
sq3 = "INSERT INTO sh050000(data_op, people_id, pers_acc, fam, im, ot, months, summa, penu, 
fil_osb, oper, numop, ls_err, name, number, numstr, flat, flatstr, counter1, counter2, pl_code, kwth) 
VALUES ({ ts '" & yy2 & "-" & mm2 & "-" & dd2 & " 00:00:00' }, " & s & ", " & d & ", '" & f & "', '" & g 
& "', '" & h & "', '" & j & "', " & k & ", " & l & ", " & z & ", '" & x & "', '" & c & "', " & v & ", '" & b & "', " & n 
& ", '" & m & "', " & q & ", '" & w & "', " & e & ", " & r & ", '" & t & "', " & y & ")"
If DataEnvironment1.rsCommand13.State =  1  Then DataEnvironment1.rsCommand13.Close
DataEnvironment1.rsCommand13.Source = sq3
DataEnvironment1.rsCommand13.Open
.........................................