Prova a scrivere così:

codice:
if (Trim(rs2.fields("hotel1")& "[]") <> "[]" ) then 
   strhotel1 = "Hotel: " & rs2.fields("hotel1") & " dal " & rs2.fields("datarrhtl1") & "al " & rs2.fields("dataparthtl1") & " notti : " & rs2.fields("pernhotel1"))"
end if
Il replace non ti serve...e mancava una "&" di concatenazione nella stringa.