>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

When your record pointer moves to EOF the While statement apparently tries to make the customer code compairson even thought the first part of the While expression (NOT .EOF) evaluates false.

Regards,
Mike