nTablesCount=adir(thisform.aTables,"*.dbf") thisform.list1.RowSourceType = 5 thisform.list1.RowSource = 'thisform.aTables' thisform.list1.Requery() thisform.list1.ListIndex = 1 thisform.list1.refresh