error en conexion a bd

[pedro_cesar]

Trata con:
Dim cnDatos As NewSqlConnection("Data Source=(local);Initial Catalog=Northwind;Integrated Security=True")

(local) es el nombre del servidor y deberia de funcionar con ese nombre, pero si no te funciona puedes hacer la prueba usando el Friendly Name de tu servidor.