VO & Ado

The following code displays an empty bBrowser with no SQL records in
the bBrowser:

== CODE 1 =======================================================
METHOD bBrowserTest CLASS Standardshellwindow
	LOCAL odtwBrowser		AS DwAdoTest
	LOCAL odbsServer		AS AdoServer
	LOCAL oBrowser		AS bBrowser

	odtwBrowser := DwAdoTest{SELF}
	odbsServer  := LEDEN{}

	IF odbsServer<>NULL_OBJECT .and. odbsServer:Used
	    odtwBrowser:Use(odbsServer)

   	    oBrowser := odtwBrowser:browser
   	    oBrowser:server:NewRecordset("SELECT * FROM LEDEN WHERE 1=0")

    	    oBrowser:Recalculate()
	    oBrowser:Refresh()
	ENDIF

	odtwBrowser:Show()
RETURN NIL

== CODE 2 ======================================================
CLASS DwAdoTest INHERIT DATAWINDOW
     etc..
CLASS LEDEN INHERIT AdoServer
     etc..

== CODE 3 ======================================================
on the DwAdoTest Datawindow I have a push button with following code:

METHOD executebutton CLASS DwAdoTest
    LOCAL uError     AS USUAL
    LOCAL oErrbox
    BEGIN SEQUENCE
         SELF:oDCbBrowser:server:NewRecordSet(SELF:oDCmSQL:value)
    RECOVER USING uError
       oErrBox := ErrorBox{SELF, "Oops, We have an error!"}
   oErrBox:Show()
    END
RETURN NIL
================================================================

The problem: when I submit a new, valid, SQL statement using the code
3 the records are
perfectly displayed on the screen (for example using code 'SELECT *
FROM LEDEN WHERE
naam = 'Rob van Erk'), but, as soon as I click on one of the records
on the screen the following
error is displayed: "adErrObjectClosed, subsystem Vo2Ado Error subcode
3704". No idea why
this errormessage is displayed. Still using evaluation version of
bBrowser 1.4 which I downloaded
from the Internet. Furthermore using VO2.7.

Thks for any sup****t that can be given.