Object does not support doesn't support this property or method was not handled

Dim objData
 Dim rs
 
 Set objData = Server.CreateObject("DataAccess.clsNoTransact")
 If Typename(lcase(objData)) <> "clsnotransact" Then
    'error condition
    m_blnIsFatalError = True
    Call subAddText(m_htmlScreenText, funcMessage(19))
    Set objData = nothing        
 Else
    Set rs = Server.CreateObject("ADODB.Recordset")
    If Typename(lcase(objData)) <> "recordset" Then
        'error condition
       m_blnIsFatalError = True
       Call subAddText(m_htmlScreenText, funcMessage(19))
       Set rs = nothing    
     Else
        Set rs = objData.GetADORS(m_objError, "prScoutPrizeOrder_selScoutPrizeOrdersByUnit","& @v_intSalesCycleID &"," & @v_intGroupID & ")
        if not funcAreRecordsetAndObjectOK(rs,objData,m_strScript  Name & "prScoutPrizeOrder_selScoutPrizeOrdersByUnit;Params  [" & m_arrReports(m_intReportID,3) &"]") then
          call subManageError(m_blnHasErrorShown)
          m_blnIsFatalError = true
        end if 'funcAreRecordsetAndObjectOk    
     End if     
 End if