********************************    
  *Here is an example for ADO data source type, when Recordset is used to update data source.    
        
    SET EXCLUSIVE OFF    
    SET MULTILOCKS ON    
    SET DELETED ON    
    CLOSE DATABASES ALL     
        
    CLEAR     
        
    oCA=CREATEOBJECT("CACategoriesAdo2")    
    IF !oCA.AutoOpen()    
    	AERROR(aerrs)  
    	DISPLAY MEMORY LIKE aerrs  
    	RETURN   
    ENDIF  
    WAIT WINDOW "Insert/Update/Delete records in the BROWSE"    
    BROWSE NORMAL    
        
        
    DEFINE CLASS CACategoriesAdo2 AS CursorAdapter    
    	Alias="CACategories"    
        
  	* set data source type, SELECT command and cursor schema    
    	DataSourceType="ADO"    
    	SelectCmd="select CategoryId, CategoryName, Description from categories"    
    	CursorSchema="Id I, Name C(15), Descr M"    
    	Tables ="categories"  
    	UpdatableFieldList = "Name, Descr"  
    	KeyFieldList = "Id"  
    	UpdateNameList = "Id categories.CategoryId, Name categories.CategoryName, Descr categories.Description"  
    
    	InsertCmdRefreshFieldList = "Id"  
        
    	PROCEDURE Init    
    		LOCAL oCon as ADODB.Connection, oRS as ADODB.Recordset    
        
  		* When object is created, create ADO connection object and connect    
  		* to the Northwind database on the local SQL Server    
    		oCon=CREATEOBJECT("ADODB.Connection")    
    		oCon.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Northwind;Data Source=(local)")    
        
  		* Create Recordset object and configure it for data source update,    
    		oRs=CREATEOBJECT("ADODB.Recordset")    
    		oRS.ActiveConnection=oCon    
    		oRS.CursorLocation =  3   && adUseClient   
    		oRS.CursorType=  1   && adOpenKeyset  
    		oRS.LockType=  3   && adLockOptimistic  
        
    		this.DataSource=oRS			    
    	ENDPROC    
        
    	FUNCTION AutoOpen()    
    		NODEFAULT     
    		RETURN this.CursorFill(.T.,.F.,- 1 ) && use schema     
    	ENDFUNC    
        
    ENDDEFINE    
  ********************************