Thanks for the reply! I replace my USE statement with the code you indicated, but now I'm getting another error: "Table has no index order set" when the SET ORDER TO 1 command is run.

>your select statement is using that table again.
>try
>

>if !used('pd_payments')
>    use pd_payments
>endif
>select pd_payments
>...
>

>
>
>>The first time I run the following code everything works as intended. But the next time I fun it, I get a "File is in use" error when the USE "TPD_Payments" command is issued. Any ideas? How do I find out what files are in use? I thought "Use" by itself would close the table, but when I tried it from the command line, issuing "Use 'TPD_payments'" still gives me the error.
>>
>>p_claimno = VAL(thisform.txtClaimNumber.Value)
>>pcTest = thisform.txtClaimNumber.Value
>>USE "TPD_Payments"
>>SET EXACT OFF
>>SET ORDER TO 1
>>SEEK p_claimno
>>IF FOUND( )
>> SELECT ALL hours_worked, hourly_rate, earned,;
>> wage_loss_amt, wage_loss_pct, payment_amount,;
>> date_through, ss_number, claimant_name,;
>> date_of_accident, a.weekly_ttd_rt, a.weekly_wage;
>> FROM wc!tpd_payments a, wc!claimant_record b;
>> WHERE (a.claim_number = b.Claim_number) and;
>> (a.claim_number = p_claimno) and;
>> (!EMPTY(a.date_through));
>> INTO CURSOR wc13b1
>> SELECT ALL hours_worked, hourly_rate, earned,;
>> wage_loss_amt, wage_loss_pct, payment_amount,;
>> date_through, ss_number, claimant_name,;
>> date_of_accident, a.weekly_ttd_rt, a.weekly_wage;
>> FROM wc!tpd_pay_history a, wc!claimant_record b;
>> WHERE (a.claim_number = b.Claim_number) and;
>> (a.claim_number = p_claimno) and;
>> (!EMPTY(a.date_through));
>> INTO CURSOR wc13b2
>> SELECT wc13b1.* ;
>> FROM wc13b1;
>> UNION ALL;
>> SELECT wc13b2.*;
>> FROM wc13b2;
>> INTO CURSOR wc13b
>> RELEASE ThisForm
>> REPORT FORM wc13b PREVIEW
>>ELSE
>> cMessageTitle = 'Claim Number Not Found'
>> cMessageText = 'Record not found. Would you like to try again?'
>> nDialogType = 4 + 32 + 256
>> * 4 = Yes and No buttons
>> * 32 = Question mark icon
>> * 256 = Second button is default
>> nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
>> DO CASE
>> CASE nAnswer = 6
>>* ThisForm.txtClaimNumber.Format = "K"
>> ThisForm.txtClaimNumber.SetFocus
>> CASE nAnswer = 7
>> RELEASE ThisForm
>> ENDCASE
>>ENDIF