Hey another Ny'er. did it. !!
Thanks. works great. !

One thing for those people wanting to use this. I put the corrected code...

IF SQLGETPROP(0,'DispLogin') <> 3
	= SQLSETPROP(0,'DispLogin',3)  && No login -- error on fail
ENDIF
IF SQLGETPROP(0,'DispWarnings')
	= SQLSETPROP(0,'DispWarnings',.F.)  && No errors
ENDIF

>Try to add folowing code before sqlstrconnect
>

>IF SQLGETPROP(0,'DispLogin') <> 3
>	= (SQLSETPROP(0,'DispLogin',3)  && No login -- error on fail
>ENDIF
>IF SQLGETPROP(0,'DispWarnings')
>	= (SQLSETPROP(0,'DispWarnings',.F.)  && No errors
>ENDIF
>