Neil,

This is one way to do it

ThisForm.List1.ColumnCount = 4

SELECT Result
LOCATE && (GO TOP )
LOCAL lnCounter
lnCounter=0
SCAN
    lnCounter = lnCounter + 1
    With ThisForm.List1
       .AddListItem(Result.key1,lnCounteri,1)
       .AddListItem(Result.key2,lnCounteri,2)
       .AddListItem(Result.key3,lnCounteri,3)
       .AddListItem(Result.key4,lnCounteri,4)
    EndWith
ENDSCAN

Cheers,

Zoran


>I have a text box (thisform.text1) in which I enter a number. When I click a button it shows a table of results based on the syntax:
>
>SELECT modacad.key1, modacad.key2, modacad.key3, modacad.key4 ;
>FROM "C:\Data\modacad" ;
>WHERE thisform.text1.Value=modacad.key3 ;
>into CURSOR result
>
>But this shows a table with the results. How can I get those four fields in the select statement to show in a list box please?