\"Subscript out of range\" ?

Når jeg kører detteher:

i=0
dim mtitel(90)
if motherid<>0 then
  do
    sqlm      = \"SELECT * FROM sider WHERE id=\" & motherid
    set rsm  = conn.execute(sql)
    motherid  = rsm(\"motherid\")
    mtitel(i) = rsm(\"titel\")
    i=i+1
  loop until motherid=0
end if

...får jeg denneher:

Subscript out of range: \'i\'