Para conectarte a una base de datos puedes hacerlo de la siguiente forma:
Dim cnn As New SqlConnection("Data Source=MyServidor;Initial Catalog=MiBaseDeDatos;Integrated Security=SSPI;")

Dim da As...