Conectar y consultar desde excel a SqlServer

Tengo un archivo que debe conectarse a una base de datos unicamente para realizar una consulta. ¿Cómo podría hacer esto desde vba?

Lo que quiero es que cuando le de enter a mi campo código, busque en la base de datos de sqlserver dicho código. Si existe me devuelva el nombre asociado al código. ¿Esto cómo lo haría?