lcKeyField = thisform.list1.value
         thisform.text42.Value= lcKeyField 
      if  thisform.text42.Value = UPPER("q1")
           CLOSE all
           USE dnc IN 0
           SELECT dnc
        LOCATE FOR flag1=1
        ThisForm.Label1.Caption = q1
        ThisForm.Label2.Caption = q11
        ELSE
           USE dnc IN 0
           SELECT dnc
    if  thisform.text42.Value = UPPER("q2")
        LOCATE FOR flag1=2
        ThisForm.Label1.Caption = dnc.q1
        ThisForm.Label2.Caption = dnc.q11
    ELSE
        CLOSE all
           USE dnc IN 0
           SELECT dnc
    if  thisform.text42.Value = UPPER("q3")
        LOCATE FOR flag1=3
        ThisForm.Label1.Caption = dnc.q1
        ThisForm.Label2.Caption = dnc.q11
    ELSE
       CLOSE all
           USE dnc IN 0
           SELECT dnc
    if  thisform.text42.Value = UPPER("q4")
        LOCATE FOR flag1=4
        ...
        ...
        .
        .
         CLOSE all
           USE dnc IN 0
           SELECT dnc
          if  thisform.text42.Value = UPPER("q15")
        LOCATE FOR flag1=15
        .
        .
        .
        
ENDIF 
ENDIF
ENDIF
ENDIF

 CLOSE all
USE answers IN 0
Select answers