Hvorfor Lukker objektet

Efter at have kaldt en stored procedure, skriver jeg et recordset ud, men får følgende fejl: \"Operation is not allowed when the object is closed\"

Min kode ser således ud - håber at er er nogen der kan hjælpe:

Function returnType(User, Email, Action, languageID)
            Dim writeReturnType As String
           
            SqlQ = \"pluginEditNotifikationsUser \'\" & User & \"\',\'\" & Email & \"\',\'\" & Action & \"\',\" & languageID & \",\" & 3
            Set rSQLQ = DBConn.Execute(SqlQ)
            Do While Not rSQLQ.EOF \' HER OPSTÅR FEJLEN
                writeReturnType = writeReturnType & _
                                  \"<tr>\" & _
                                    \"<td><input type=\'checkbox\' name=\'objectTypeID\' value=\'\" & rSQLQ(\"OBJECT_ID\") & \"\'></td>\" & _
                                    \"<td>\" & rSQLQ(\"OBJECT_NAME\") & \"</td>\" & _
                                  \"</tr>\"
            rSQLQ.MoveNext
            Loop
            End If
        returnType = writeReturnType
    End Function