Hi Eric,
Following is the code :-


Private lordo_app As rdoResultset

Set lordo_app = goConnection.OpenResultset(" select * from app " & lswhereclause, rdOpenKeyset, rdConcurReadOnly)


If (lordo_app!requiredar <> 0 And lordo_app!otc = 1) Then

txtarstart = Format(lordo_app!Received, "MM/dd/yyyy")
txtantarfinish = Format(lordo_app!Received, "MM/dd/yyyy")
txtarfinish = Format(lordo_app!Received, "MM/dd/yyyy")
txtarstart = Format(lordo_app!Received, "MM/dd/yyyy")
txtarstatus = 100
txtarbcstart = Format(lordo_app!Received, "MM/dd/yyyy")
txtantarbcfinish = Format(lordo_app!Received, "MM/dd/yyyy")
txtarbcfinish = Format(lordo_app!Received, "MM/dd/yyyy")

end if

thanks,
...ashish