Visual Basic.NET - No puedo conectar VB .NET con sql server

Buenas, acabo de cambiarme de VB 6 a .NET y no consigo conectar. ¿Que hago mal? Hos pongo el codigo que tengo

Imports System.Data.SqlClient

Module Module1

Public Sub AbrirBD()
Dim con As SqlConnection
con.ConnectionString = "server=srv;uid=sa;pwd=*******;database=*****;"
con.Open()
MessageBox.Show("Conectado")

End Sub
End Module

En el password y la contraseña no quiero poner informacion pero esta bien puesto.
¿Que hago mal?

CadenaConexion = "workstation id=nombremaquina;packet size=4096;integrated security=SSPI;data source=nombremaquina;persist security info=False;initial catalog=Prueba_Nombre"

conex = New SqlClient.SqlConnection(CadenaConexion)

prueba con esta cadena de conexion

Debes crear una nueva instancia del objeto SqlConnection.
Donde pones:
Dim con As SqlConnection

Prueba a poner:
Dim con As New SqlConnection