Visual Basic - coneccion a sql (uso conection)

hola espero que me puedan ayudar
quiero desarrollar una aplicacion asiendo uso del sql como base de datos
quisiera que por favor alguien me pudiera mandar el codigo de coneccion asiendo uso del objeto conection
grasias....

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Crea una instancia para la conexion y crea una instancia para el recordset.

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Define la conexion utilizando un ODBC de tipo "DSN Sistema".

cn.ConnectionString = "Data Source=ODBCAccess; User ID=;PWD="
cn.Open

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Carga el recordset mediante sentencia SQL con todos los campos y todos los registros.

rs.Open "SELECT * FROM " & tabla, cn