Dear Experts

CLOSE ALL
CLOSE DATABASES
OPEN DATABASE D:\GIN2006\TABLES\ACCOUNT 
tbname=justfname(thisform.pageframe1.page2.list1.value)
USE &tbname
gnFieldcount = AFIELDS(gaMyArray)  

FOR nCount = 1 TO gnFieldcount 
   ? gaMyArray(nCount,1)  
ENDFOR

The above codes work fine.
But I want to add all field names and their type into list1 as

debit n(8)
credit n(8)
detail c(20)

List1 has two columns

Please modify codes or suggest another
Thanks in advance