PUBLIC bla bla = CREATEOBJECT('oTest') bla.CursorFill(.T.,.F.) BROWSE DEFINE CLASS oTest AS CursorAdapter Alias = "v_test" DataSourceType = "ODBC" SelectCmd = "SELECT o.orderid, o.shipvia, o.freight, o.shipvia*o.freight AS NonSense FROM orders o" CursorSchema = "pk_adress I, shipvia I, freight N(10,2), NonSense I" FUNCTION Init THIS.DataSource = SQLCONNECT('mssql','user','pwd') ENDFUNC FUNCTION Destroy SQLDISCONNECT(THIS.DataSource) ENDFUNC ENDDEFINERegards