Test Foro de elhacker.net SMF 2.1

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

CitarOption 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!!

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

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

nunka pense que fuera tan cencillo..  ;D

SALUDOS!!!