Hi Paul,
Put ON ERROR in the ark too. :-)
Use Error()
then code...
This.ADOConnectionError()
and on the last line put
ErrMsg = "ErrorNo=" +ALLTRIM(STR(m.nError)) + " " + " in Line = " ;
+ ALLTRIM(STR(nLine)) + " of " ;
+ This.Name
ASSERT .F. MESSAGE m.ErrMsg
This allows you to debug in developement mode. ASSERTs are ignored at runtime.


>Sorry about that folks...I managed to answer my own question..but it disturbs me. Why does this work ?
>
>LOCAL loErr
>
>loErr = this
>
>ON ERROR loErr.adoconnectionerror()
>
>and
>
>ON ERROR this.adoconnectionerror()
>
>not work.
>
>They should be the same thing.
>
>I can't work VFP out. The amount of times I have to do something daft like this (I have to use macro substitution, which should have been dumped with the ark, more times than I care for) is ridiculous. Every other language I've ever used manages to evaluate simple expressions involving basic pointer constructs without any problem so why can't VFP. This is basic bread n butter stuff!
>
>I've got to get another job!
>
>Pablo