Verificar código en ADO, no hace conexión

Estoy comenzado a practicar con ADO en Access 2013, este es el código

Private Sub bt_actualizar_Click()
Dim conn As New Connection
Dim mirecordset As New Recordset
Dim misql As String
Set conn = CurrentProject.Connection
misql = "select * from cliente"
mirecordset.OpenRecordset misql, miconexion
Do Until mirecordset.EOF
    Debug.Print mirecordset!fecha, cliente
    mirecordset.MoveNext
Loop
mirecordset.Close
conexion.Close
Set mirecordset = Nothing
Set conexion = Nothing
End Sub

Lo que sucede es lo siguiente, me marca error (el uso de la palabra New no es valido), se los quito y despues me marca error (no coinciden los tipos), y estoy atorado en este momento.