Visual Basic - Error '13' No coinciden los tipos

Como puedo hacer para comparar esto
Adodc1.Recordset.Find "IdProyecto=" + VerProyectos.Adodc1.Recordset("IdProyecto")
siendo que el primer IdProyecto es autonumérico en la BD y el segundo IdProyecto es numérico. Asi me dice que no coinciden los tipos. muchas gracias.

El problema es precisamente que el 2º valor es un número, y el parámetro del FIND es una cadena. Estás uniendo una cadena y un número. Prueba lo siguiente :
Adodc1.Recordset.Find \"IdProyecto = \" & CSTR(VerProyectos.Adodc1.Recordset.Fields(\"IdProyecto\")