Access - Conectar access con VB6

Estoy tratando de conectar access con visual basic 6 con el siguiente código y me da este error "NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO" en esta declaración "Public Cn As New ADODB.connection":

Referencias: Microsoft Activex Data Objects Recordset Library 2.5

Public Cn As New ADODB.connection
Public Sub Conextion()

sql = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;Persist Security Info=False; DATA SOURCE=" & App.Path & "\prueba.mdb"

If Cn.State = adStateClose Then
Cn.Open sql
End If

End Sub

te esta haciendo falta una referencia a una libreria que podria ser Microsoft Activex Data Objects Recordset Library 2.5 debes agregarla en herramientas, referencias dentr del modulo en que estas trabajando.