> WITH Thisform
> WITH .Dataenvironment
> .Addobject([Cli_name],[Cursor])
> .Cli_name.Alias=[Cli_name]
> .Cli_name.CursorSource =[cli_name]
> .Closetables
> .Opentables
> ENDWITH
> ENDWITH

How about .CursorSource = 'c:\cchprog\cli_name.dbf'?

Actually, why don't you just add it manually to the dataenvironment and then
copy the properties? That's what I've been doing to find these things out....