>Actually .. this is a very simple problem .. but I don't understand why .. VB6 give me the error message "No current record" .. can anybody explain to me .. please .. the statement is below :
>
>
>
>Customer.MoveFirst
>With Customer
>Do
> mCustomerCode=!CustomerCode
> While NOT .EOF and mCustomerCode=!CustomerCode
> txtShow.Text = !CustomerCode
> .MoveNext
> Wend
>Loop Until .EOF
>.Close

Put the test condition at the beginning of the loop
With Customer
if not .eof then
.MoveFirst
Do Until .EOF
mCustomerCode=!CustomerCode
While NOT .EOF and mCustomerCode=!CustomerCode
txtShow.Text = !CustomerCode
.MoveNext
Wend
Loop
end if
.Close