You can probably get some good ideas from Mark McCasland's CA builder:

http://www.mctweedle.com/downloads/CABuilder.zip

>dear all
>
>Any body help me how to create CursorAdopter Programitically,
>i made a sample code but it is not working properly
>
>I placed command button and i wrote in click event of the button,
>when cliking this button i got ann error that 'Alias not found.'
>
>
>cSqlPath = "Provider=SQLOLEDB.1;";
>+"Integrated Security=SSPI;";
>+"Persist Security Info=False;";
>+"Initial Catalog=SqlData;";
>+"Data Source=admin;";
>+"Initial File Name="+"'"+D:\SqlData\Sql_Data.MDF+"'"
>
>cSqlDb.ConnectionString = cSqlPath
>cSqlDb.open()
>
>cCA = CREATEOBJECT('Cursoradapter')
>WITH cCA
> .Alias = "Cus"
> .Allowdelete = .T.
> .Allowinsert = .T.
> .Allowupdate = .T.
> .Batchupdatecount = 1
> .Buffermodeoverride = 3
> .Comparememo = .T.
> .Cursorschema = [CUS_Code C(15), Cus_Name C(40)]
> .Datasource= cSqlDb
> .Datasourcetype = "ADO"
> .Fetchmemo = .T.
> .Fetchsize = 100
> .Maxrecords = -1
> .Name = "Cus"
> .Sendupdates = .T.
> .Tag = cSqlPath
> .Tables = [customer]
> .Selectcmd = [Select customer.CUS_Code,CUS_Name From Customer]
> .cursorfill()
> .Usememosize = 255
> .Wheretype = 3
>ENDWITH
>
>SELECT cus
>BROWSE
>
>i need somebody's kind help....................
>
>With Thanks and Regards
>Abdulla