El Replace no le llega nada, al tener valor nulo te da error.
Pon:
Código:
if rsGuestbook("descripcion")<> "" then
descripcion = replace(rsGuestbook("descripcion"),vbCrlf,"<br>")
else
descripcion = "No me llega nada" 'Pon el texto que quieras
end if
La primera linea creo que tambien funcionaría así:
Código:
if not isNull rsGuestbook("descripcion") then
Creo que así funcionará...