Vamos a ver,
el campo idpaciente será numérico ¿no?, pues pon la consulta así:
sql = "SELECT * FROM pacientediagnostico WHERE idpaciente = " & cadena
Fíjate en que no tiene comillas simples y el operador LIKE no tiene ningún sentido en este contexto.
