Conectar con base de datos access .mdb

[affv]

Ok.. lo que necesito creo que es sencillo estoy comenzando con VB y necesito trabajar con bases de datos empezare por access para luego pasara sql. ya he leido un poco y he encontrado info sobre conexiones dao pero tambien he leido que son mejores las conexiones ADO y estoy interesado en utilizar conexiones ADO alguien me podria dar los pasos para mostrar un simple dato que hay en una base de datos con ADO ( se un poco de programacion ASP y sentencias SQL ) por si sirve de algo.

[asitudela]

Código:

Option Explicit
Public cnn1 As ADODB.Connection
Public Sub main()
'Dim form1 As frmverdatos
Dim cnn1 As ADODB.Connection
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\VIDEOCLUB.mdb"
cnn1.Open
    If cnn1.State = 1 Then
        MsgBox ("conexion establecida")
    Else
        MsgBox ("error en la conexion")
    End If
'Set form1 = New frmverdatos
Load Form1
Form1.Show
'cn.Close
'Set cn = Nothing
End Sub