> loConnection=CREATEOBJECT('ADODB.Connection') > loConnection.Open(This.cSQLStringConnect) > loCommand=CREATEOBJECT('ADODB.Command') > loCursor=CREATEOBJECT('CursorAdapter') > loCursor.Alias=lcCursor > loCursor.DataSourceType='ADO' > loCursor.DataSource=CREATEOBJECT('ADODB.RecordSet') > loCursor.SelectCmd=This.cSQL > loCursor.DataSource.ActiveConnection=loConnection > loCommand.ActiveConnection=loConnection > IF NOT loCursor.CursorFill(.F.,.F.,0,loCommand) > ENDIF >>