Visual Basic - Conectar con la BD - principiante

Hola!
Bueno, necesito saber cómo trabajar con VB con las bases de datos. Soy principiante y tengo aquí un código que he probado para conectar con la BD y hacer una sencilla consulta pero no me funciona, me dice que la declaración de la variable es insuficiente :
'Dim cn as ADODB.Connection
'Dim rsAlumno as ADODB.Recordset
'Set cn = New ADODB.Connection
'cn.Open "provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\...el 'path...;Persist Security Info=False"
'set rsalumno = New ADODB.Recordset
'rsalumno.ActiveConnection = Cn
'rsAlumno.CursorType = adOpenStatic
'rsAlumno.LockType = adLockReadOnly
'rsAlumno.CursosLocation = adUseClient
'rsAlumno.Open "select * from clientes"
Este es el código para las conexiones y cargar el registro con los datos, pero ya en el Dim, me da error. ¿Está bién el código?¿Es este código?¿Existe otro código? Y ¿Necesito activar o instalar algo? No tengo ni idea, si alguien me puede ayudar, le agradecería un montón.

Viendo a simple vista el codigo, primero que nada quitale las comillas simples que tienen al principio las lineas pruebas y me escribes

Hola aqui te mando un codigo espero que te sirva a mi parecer es lo mas simple , lo promero crea un modulo y alli peago este codigo del modulo y luego en un formulario en el evendo load pega el siguiente codigo de formulario, suerte cualquier cosa pasame el dato

Joel - Lima peru

Modulo

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public m_Codigo As String
Public Const Ap As String = "'"
Public Const ColorActivo = &HC0FFFF
Public Const ColorInactivo = &HE0E0E0
Public Property Get Conexion() As String
Conexion = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & App.Path & "\Datos\Costos.Mdb"
End Property

Formulario load

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim sql As String
sql = "select codlart,nomlart from Linart order by 1 "
cn.Open Conexion
Set rs = cn.Execute(sql)
TxtCod.Text = rs.Fields("codlart")
TxtLinea.Text = rs.Fields("nomlart")
Cn.Close
Set Rs = Nothing
Set Cn = Nothing