problema al realizar un reporte con DataReport(SOLUCIONADO)

[maxtextla]

mi problema es que me manda un error al declarar las siguientes variables:

Option Explicit

Private cn As ADODB.Connection  -------------> estas variebles son las que cuando
Private rst As ADODB.Recordset   --------------- > ejecuto me dice: que no se ha definido el tipo por el usuario, que kreen que este haciendo mal?? 


Private Sub cmdEliminar_Click()
Dim Nombre As String

Nombre = InputBox(" Eliminar registro ", " Escriba el nombre del cliente a eliminar ")

'Ejecuta la sentencia SQL de eliminación
cn.Execute "DELETE FROM Clientes WHERE Nombre = '" & Nombre & "'"

End Sub


'Botón para añadir un registro de la base de  datos
Private Sub cmdAgregar_Click()

Dim Nombre As String
Dim Apellido As String
Dim Email As String
Dim Sql As String

Nombre = InputBox(" Añadir registros ", " Escriba el nombre")
Apellido = InputBox(" Añadir registros ", " Escriba el Apellido ")
Email = InputBox(" Añadir registros ", " Escriba el Email ")

Sql = "INSERT INTO Clientes VALUES ( '" & Nombre & "', '" & Apellido & "', '" & Email & "')"

'Ejecuta la sentencia SQL para añadidr el registro
cn.Execute Sql

MsgBox " Registros añadidos ", vbInformation

End Sub
Private Sub CmdReporte_Click()
   
    Set rst = cn.Execute("SELECT Nombre, Apellido, Email FROM Clientes ORDER BY Nombre")
   
    'Asigna el recordset al reporte
    Set ReporteClientes.DataSource = rst
   
    ' Muestra el reporte
    ReporteClientes.Show vbModal
End Sub
Private Sub Form2_Load()
   
    'Nuevo objeto conecction
    Set cn = New ADODB.Connection
   
    'Abre la base de datos
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\bd1.mdb;" & _
        "Persist Security Info=False"
End Sub


Private Sub Form_Unload(Cancel As Integer)
    On Local Error Resume Next
    cn.Close
    rst.Close
    Set cn = Nothing
    Set rst = Nothing
End Sub

si desactivo o borro esa linea me dice que no se han definido esas variables, ya intente declararlas con DIM pero es el mismo caso... ojala y puedan ayudarme GRACIAS!!

[yovaninu]

lo que te falta hacer es activar la referencia a Microsoft ActiveX Data Object 2.1 Library (aunque puedes usar las otras)

hazlo eligiendo la opcion referencias del menu Proyecto

[maxtextla]

gracias!!! yovaninu ya se soluciono mi problema haciendo la referencia que tu me dijiste.

nunka pense que fuera tan cencillo.. 

SALUDOS!!!