Hola,
lo que entiendo es que quieres que muestre las citas ordenadas. Si es así, en la tabla tendrás un campo fecha o autonumérico, entonces lo que puedes hacer en la misma consulta SQL ordenar por ese campo.
Suponiendo que te refieres a la tabla 'pacientediagnostico' :
RECBDD.Open "SELECT * FROM pacientediagnostico WHERE idpaciente = '" & Text1(0).Text & "' ORDER BY Fecha", bd, adOpenKeyset, adLockOptimistic
y el primer registro será el de la fecha más antigua, si quieres mostrar el más reciente le añades la claúsula "DESC"