i'm trying to do like this
CREATE CURSOR rasti(bar_kodas char(20) NOT NULL,pavadinimas varchar(100) DEFAULT NULL,vieta_sandelyje varchar(20) DEFAULT NULL,kiekis float DEFAULT NULL,kaina float DEFAULT NULL)
a = UPPER(ALLTRIM(thisform.text1.Value))
rezultatai =SQLEXEC(P1,"SELECT * FROM...