error (0x80004005) Error no especificado

[areslomas]

ya he probado con escribiendo:
rs.Open "Select * from Edificios Where Nombre='" & us & "'",con,1,2

pero crea otro error, el cual busque y dijeron que debia cambiar el * por el nombre de los campos.

de todas formas gracias