Or...

lParameters cTableName
Use (cTableName)
With This.Mycombobox
.rowsourcetype=8
.Rowsource = cTableName
.sorted=.t.
Endwith



>***Form.Init event
>

>LPARAMETER cTablename
>Select (cTablename)
>With This.Mycombobox
> .rowsourcetype=0
> .sorted=.t.
> .clear
> For nLoop=1 to Fcount()
>  .additem(field(nLoop))
> Endfor
>Endwith
>