oData = Createobject("NWData") oData.CursorFill(.T.) browse Define Class NWData As CursorAdapter Alias="Orders" DataSourceType="ADO" CursorSchema = "CustomerID C(5), OrderDate D, OorderID I, RequiredDate D" SelectCmd = "select CustomerID, OrderDate, OrderID, RequiredDate from Orders" Procedure Init This.AddProperty('oConn', NEWOBJECT("adodb.connection")) This.AddProperty('oRS', NEWOBJECT("adodb.recordset")) This.oConn.ConnectionString = ; "Provider=SQLOLEDB;Integrated Security=SSPI;"+; "Persist Security Info=False;"+; "Initial Catalog=Northwind;Data Source=localhost" This.oConn.Open() This.oRS.ActiveConnection = This.oConn This.Datasource = This.oRS Endproc EnddefineCetin