SQLSetprop(0,"ConnectTimeOut",3) SQLSetprop(0,"DispLogin",3) Local vlcservidor,vlcbasededatos,vlcusuario,vlcclave Local vlcerrormensaje,vlnlocalnumconex vlcservidor=Alltrim(PvproLocal.ServerName) && Tambien se puede colocar el IP vlcbasededatos=Alltrim(PvproLocal.Bdatos) vlcusuario = Alltrim(PvproLocal.usuario) vlcclave = Alltrim(PvproLocal.Password) pvpro2006="Driver={SQL Server}"+; ";Server="+vlcservidor+; ";Database="+vlcbasededatos+; ";Uid="+vlcusuario+; ";Pwd="+vlcclave+";" concredito = Sqlstringconnect(pvpro2006) If concredito <= 0 messagebox("Servidor Fuera de Linea Intente en otro Momento!!!",16,"") poner rutina de fuera de linea a funcionar.... Return Endif Str_Inserta = "select * from clientes where codigo = '"+ALLTRIM(_CrCode002_)+"'" If SQLExec(concredito,Str_Inserta,'cliPAG') <= 0 Pner Rutinas para fuera de linea. Endif =SQLDisconnect(concredito)creo que este es un concepto bien basico pero muy util para tus casos.