database Connection fejl i asp

Er der nogle der kan se hvad der er galt med denne kode:

<%
Dim strSQL, connRs, conn

Set conn = Server.CreateObject("ADODB.Recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("cms.mdb")
strSQL = "SELECT Afsnit.Tekst  FROM Afsnit INNER JOIN Menu ON Afsnit.MenuID = Menu.MenuID  WHERE Menu.MenuID = 101;"
Set connRs = conn.Execute(strSQL)

do
    Response.Write(connRs("Tekst"))
    connRs.MOVENEXT
loop until connRs.EOF

connRs.Close
conn.Close

Set connRs = Nothing
set conn = Nothing

%>


Jeg får fejlen:

Fejltype:
ADODB.Recordset (0x800A0E7D)
Forbindelsen kan ikke bruges til at udføre denne handling. Den er enten lukket eller ugyldig i denne sammenhæng.