RsIzvestaj.Open "CALL spSmetki('" & Format(txtDataOD, "yyyy-MM-dd") & "','" & Format(txtDataDO, "yyyy-MM-dd") & "')", cn, adOpenStatic, adLockOptimistic