type mismatch run-time error '13'

[manedf]

Alguien sabe como corregir este error?

type mismatch run-time error '13'

[elsaky]

manda un poco mas de codigo asi se puede ayudar mejor
saludos

[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

[manedf]

ayuda por favor ?????????