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 Sub
Err:
Call ManejadordeError
End Sub