Visual Basic para Aplicaciones - Error Consulta

Alguien por favor me puede regalar una gran ayuda, es que tengo un problema con una consuta y es como grave porque no tengo ni la mas minima idea de cual es el problema:

Para el siguiente codigo porque se genera el error: ""No coinciden los tipos de datos en la expresión de criterios""

Sub select01()

Dim rs As Recordset, dbs As Database
Dim stCOD As Long, stQuery As Variant

stCOD = Form_PasoVendido.Codigo_del_Animal.Value
ss = MsgBox("Esta seguro de que este animal se vendio?, si lo introduce al invetario de ventas por error debe consultar al proveedor", vbYesNo + vbInformation, "SIGAH")

If ss = 6 Then

stQuery = "SELECT DiasPendientes FROM PeriododeRETIRO WHERE [Codigo del Animal]= '" & stCOD & "'"
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset(stQuery)

rs.MoveFirst
Do Until rs.EOF = True
s = rs![DiasPendientes]
MsgBox s
rs.MoveNext
Loop
Exit Sub

rs.Close

End If
End Sub

MUCHAS GRACIAS PARA LOS PROGRAMADORES QUE ME PUEDAN AYUDAR.