abrir base en acces con modulo de clase

[clasista1]

Hola que tal , me he unido a este foro porque veo que me pueden ayudar en algo.
Recien he aprendido a usar los modulos de clases en Visual Basic 6.0 pero me preguntaron como poder abrir una base de acces usando las clases
y aqui les pongo el pequeño ejemplo que yo tengo ... (de abrir una base con ADO )
ahora, ¿como hago para abrirla usando el modulo de clases?
que parte del codigo pongo en el modulo, que codigo escribo en el formulario principal y luego que operaciones puedo hacer con el objeto creado con la clase?

de antemano gracias y Shalom...


Option Explicit


Private cnn As ADODB.Connection

Private WithEvents rst As ADODB.Recordset

Private Sub Form_Load()
'
Text2 = ""
'

Const sPathBase As String = "E:\progra\Libres.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With


cmdMover_Click 0

End Sub

Private Sub cmdActualizar_Click()

With rst
.Fields("CurCodigo") = Text1(0) & ""
.Fields("CurNombre") = Text1(1) & ""
.Fields("CurProfe") = Text1(2) & ""

.Update
End With
End Sub

Private Sub cmdAdd_Click()
' Añadir un nuevo registro
rst.AddNew
' Añadimos algún texto,
Text1(1) = "Nuevo"
' Actualizamos los datos
rst.Update
' Movemos al último registro para que los cambios se hagan permanentes

rst.MoveLast
End Sub



Private Sub cmdBuscar_Click()
' Mostrar los datos en el listview
Dim sBuscar As String
Dim tRs As Recordset
Dim tLi As ListItem
'
' Comprobar si tiene caracteres "no válidos" para ADO:
' NOTA: Replace es una función de VB6
sBuscar = Text2
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")
'
Text2 = sBuscar

sBuscar = "SELECT * FROM curso WHERE CurCodigo LIKE '" & sBuscar & "' ORDER BY CurCodigo"

Set tRs = cnn.Execute(sBuscar)

With tRs

If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else

.MoveFirst
Do While Not .EOF

Text1(0).Text = .Fields(0)
Text1(1).Text = .Fields(1)
Text1(2).Text = .Fields(3)

.MoveNext
Loop
End If
End With
End Sub



Private Sub cmdMover_Click(Index As Integer)
' Mover según el botón pulsado
'On Error Resume Next
'
With rst
If Index = 0 Then ' Primero
.MoveFirst
ElseIf Index = 1 Then ' Anterior
.MovePrevious
ElseIf Index = 2 Then ' Siguiente
.MoveNext
ElseIf Index = 3 Then ' Último
.MoveLast
End If

If .BOF Or .EOF Then
.MoveFirst
Label5.Caption = " No hay datos..."
Else
Label5.Caption = " Registro actual: " & rst("CurCodigo")
End If
End With
'
Err = 0
End Sub