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