Visual basic para aplicaciones. Error de compilación:El uso de la palabra New no es válido.

Sub conecta_actual()

Dim miconexion As New Connection  'ACA ME MARCA  ESE ERROR = New no es válido'

Set miconexion = CurrentProject.Connection

Dim instruccion As String

instruccion = "Select * FROM CLIENTE"

Dim mirecordset As New Recordset 

mirecordset.Open instruccion, miconexion

Do Until mirecorset.EOF
Debug.Print mirecordset; Nombre
mirecordset.MoveNext

Loop

mirecordset.Close
Set mirecordset = Nothing 
miconexion.Close
Set miconexion = Nothing

End Sub