>>CREATE CURSOR MyLocalCursor (FieldName C(20),;
>>                             FieldType C(1))
>>SELECT 0
>>WITH ThisForm
>>  .text1.Value = GETFILE('dbf')
>>  .select_file = .Text1.Value
>>  IF FILE(.select_file) && This checks for the file to exist
>>      USE (.select_file)
>>      AFIELDS( .my_fields, JUSTSTEM(.select_file) )
>>
>>      SELECT myLocalCursor
>>      APPEND FROM ARRAY .my_fields
>>      SET FILTER TO FieldType = "C"
>>      GO TOP
>>
>>      WITH .Combo1
>>        .RowSourceType = 6
>>        .RowSource = [MyLocalCursor.Fieldname]
>>        .Value     = MyLocalCursor.Fieldname
>>        .Requery() && Needed to reload the combo's list with the values in the array
>>      ENDWITH
>>       .text1.Visible  = .t.
>>  ENDIF
>>ENDWITH
>>