Null problem med Replace

Får invalid use of replace när jag kör en replace på enkelfnutt då posten är tom.

Jag har försökt med följande men fungerar icke

If ObjRs("Comment") = "" or isnull(ObjRs("Comment")) then VarCommentMain = "" else VarCommentMain = Replace(ObjRs("Comment"),"'","''")

VarCommentMain = "" & ObjRs("Comment") 
VarCommentMain = Replace(VarCommentMain,"'","''")

Mvh

Tack för den @nders!

Det fungerade inte kom jag på...
Jag måste ha
VarCommentMain = ObjRs("Comment")
innanför Do until ObjRs.EOF annars ändras aldrig variablen utan den får samma värde hela tiden. Men lägger ja den innanför så funkar inte replacen.

Do Until ObjRs.EOF
VarCommentMain = ObjRs("Comment")
If ObjRs("Comment") = "" or isnull(ObjRs("Comment")) then VarCommentMain = "" & ObjRs("Comment") else VarCommentMain = Replace(VarCommentMain,"'","''")

Hmm???

Do Until ObjRs.EOF
VarCommentMain = "" & ObjRs("Comment") 
VarCommentMain = Replace(VarCommentMain,"'","''")

Eller? :o

aha du menade så, det fungerade inte heller.

På vilket sätt fungerar det inte? Det ska göra det. Jag kräver det.

Mvh

Får du något felmeddelande SteveP? @nders kod ska fungera.

Den replacade perfekt, jag som hade missat en grej. Det skrivs ut inom ett javascript

onmouseover=""return overlib('" & VarCommentMain & "');"" onmouseout=""return nd();

Så jag får replaca det med ett escape tecken för javascript.

Då får du replacea med backslash istället då. :)

Mvh

Tack! :)

\' menar jag då förstås, men det förstod du nog. :)

Mvh

Jupp!