oBase:Execute("set session wait_timeout=86400")
IF oBase:nError <> 0
MsgStop('Error al intentar establecer wait_timeout','Error')
oBase:End()
ENDIF
STAT FUNC ConnectTo(hHost,hUser,hPassword,hBase,siMsg)
FWCONNECT oCn HOST hHost USER hUser PASSWORD hPassword PORT 3306
IF oCn:nError <> 0
MiError(oCn,oCn:nError,lInternal,@CONECTA,siMsg)
ENDIF