Saludos,

Alguien soluciono el problema de conexion a SQL via internet con VB mi acceso es el siguiente:

.Provider = "SQLOLEDB"
.ConnectionString = "User Id=sa;Data Source=XXX.XXX.XXX.XXX,1433;Initial Catalog=caritas;network library=dbmssocn"
 
Gracias