Visual Basic - Conectar vb con sql server

Me gustaria saber como conectar vb con sql server

Primero a nivel modulo define el objeto de conexion

Public cn As ADODB.Connection

Luego crear una Subrutina con la conexion:

Private Sub ConectarSQL()
Set cn = New ADODB.Connection

With cn
.Provider = "SQLOLEDB"
.ConnectionString = _
"User Id=sa" & _
";Password=" & _
";Data Source=" & NombreServer & _
";Initial catalog=" & NombreBaseDatos
.Open
End With
End Sub

Esto debe hacer la conexion al SQL Server.

Saludos desde Lima

que referencia he de poner al proyecto para que no me de error en la primera linea, la de public, he probado microsoft dao 3.6.