Rs.Open "select numb, billdate, client_name, firm_name, note from mc_BillAutoArchiveProtocol t" + _
            " join Bill_view t1 on t.bill = t1.code where datediff(dd, savedate, getdate()) = 1", cn
    While Not Rs.EOF
         frmBillsToArhiv.dgBillsToArh( 1 ).AddNew
         frmBillsToArhiv.dgBillsToArh( 1 ).AddItem TSN(Rs!Numb) + _
                ":" + Format(Rs!billdate, "dd.mm.yyyy") + _
               ":" + TSN(Rs!client_name) + _
                ":" + TSN(Rs!firm_name) + _
                ":" + TSN(Rs!note)
        Rs.MoveNext
    Wend