Visual Basic - como programar con ADODB

Necesito saber si alguien me puede dar informacion sobre como programar con ADODB, lo que sea sirve.

Muchas Gracias

'Referencias Microsoft Active X Data Object 2.0
'con Bd Access 2000
'Declaro variables
dim Cn as Connection
Dim Rs as Recordset

'Abro Conexion

Set Cn = New Connection
Cn.CursorLocation = adUseClient
Conexion = App.Path & "\Planillas.mdb"
With Cn
.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Conexion
End With

'abro Recordset

Set Rs = New Recordset
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open "Select * From Empresas", Cn