>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 *Wend* after the *Loop Until .EOF*