[求助]打开数据的问题！急！

bbiiy

运行时提示，实时错误'91',对象变量或with块变量未设置。我应该如何修改，请高手指点


Private Function GetQID(ByVal QType As Long, ByRef Score As Single) As Long


On Error Resume Next


Dim dbrs As ADODB.Recordset


Set dbrs = GetDBRS(QType)       '获取题型为qType的数据集


dbrs.Open                             '打开数据集


  ……      


dbrs.Close


……                     '函数返回题目编号


End Function


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Private Function GetDBRS(ByVal Q As Long) As Object   '获取类型为Q的数据集


On Error Resume Next


  Select Case Q


   Case 1


    GetDBRS = DataEnv.rsFillingQ    ／／／／运行出错语句


   Case 2


    GetDBRS = DataEnv.rsRorWQ


   Case 3


    GetDBRS = DataEnv.rsSingleSelQ


  End Select


End Function

gnoy

Dim dbrs As ADODB.Recordset          ----------------->


Dim dbrs As new ADODB.Recordset

bbiiy

我尝试过了


Dim dbrs As new ADODB.Recordset


也不可以，还是存在错误：对象变量或with块变量未设置。

wwwwa

是否引用ADO？

gnoy

看来你的代码太烂了.查查DataEnv对象 没有NEW 就加上去

andymark

很可能是没有加New,把完整代码贴上来