Very Computer

Using VB 4 and SQL 6, the following code runs fine.  It does not
work under VB 5 sp2 and SQL 6.5 sp3.  It is calling sp's on the
server, but returns the error:

Method 'StillExecuting' of object _rdoResultset' failed.

What is new with RDO 2 that is killing this code?

    Set en = rdoEngine.rdoEnvironments(0)
    rdoErrors.Clear
    '
    conn = "DSN=ta;UID=" + userid + ";PWD=" + password + ";DATADASE=ta;"
    Set cn = en.OpenConnection(dsname:="", _
                                Prompt:=rdDriverNoPrompt, _
                                ReadOnly:=True, _
                                Connect:=conn)
    Set rs = cn.OpenResultset(Name:=SQL, _
                                Type:=rdOpenForwardOnly, _
                                LockType:=rdConcurReadOnly, _
                                Options:=rdAsyncEnable)
    While rs.StillExecuting
        If frmVbfilm.PBar.Value = 1000 Then
            frmVbfilm.PBar.Value = 0
        End If
        frmVbfilm.PBar.Value = frmVbfilm.PBar.Value + 1
        DoEvents
    Wend