Dim dayend, stock, upd As String
dayend = "insert into tbl_dayend(dayend,dayenddate) values ('1','" & txtnxtdt & "')"
stock = "INSERT INTO Tbl_stonestockopening (stonesubgroup, stonename, size, closinpcs, closingweightcts)" _
& "select stonesubgroup, stonename, size, clspcs, clswt from...