>IF LEN(RTRIM(Thisform.Namefile)) =0
> WITH Thisform
> WITH .Dataenvironment
> .Closetables
> .Addobject([Cli_name],[Cursor])
> .Cli_name.Buffermodeoverride =2
> .Opentables
> ENDWITH
> ENDWITH
>ENDIF

Oops: I forget a few lines there.

Try

.Cli_name.Alias = "Cli_name"

and whatever other property settings are called for....