Ok ya lo resolví:
esta es la solución:
Conexión 1:
Dim cnDatos As String = ConfigurationManager.ConnectionStrings("WebConnect ionString").ConnectionString
Conexión 2
Dim cnDatos As New SqlConnection("workstation id=RM18;packet size=4096;user id=BaseDatos;data source=201.211.210.125;persist security info=True;initial catalog=Web;password=123456")
Conexión Correcta: Dim cnDatos As New SqlConnection(ConfigurationManager.ConnectionStrin gs("WebConnectionString").ConnectionString)