Public Sub Main()On Error GoTo Err'conexión de confianza sin validación funciona en local y remotamente por el IP, nombre del servidor y (local) CnSQLconexion.Open "Provider=sqloledb;" & _ "Data Source = (local);" & _ "Initial Catalog=NombreBD;" & _ "Integrated Security=SSPI; persist security info=True;" Exit SubErr: Call ManejadordeErrorEnd Sub