type mismatch run-time error '13'

[manedf]

Sub Mostrar_Todos()
Dim j As Long
Dim aux As Recordset

Lista.Clear
Set aux = Datos.OpenRecordset("select * from ventas") aqui marca el error
aux.MoveLast
aux.MoveFirst

For j = 0 To aux.RecordCount - 1
Lista.AddItem aux!fecha & " --> " & aux!Codigo
aux.MoveNext
Next j
End Sub