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