vb自动关闭!!!请教高手啊

Question

现遇到一问题,vb 在执行生成adodb.recordset的时候,会自动跳出,而且关闭VB,这是怎么回事呢?用的是ADO2.7,用的是一个扩展的CDataBase类,在
rs=CDataBase.OpenRecordSet(sql) 时跳出,关闭VB
objDatabase为当前CDataBase类对象
Public Function OpenRecordSet(pstrSqlString As String, Optional pCursorType As CursorTypeEnum = adOpenStatic, Optional pLockType As LockTypeEnum = adLockOptimistic) As ADODB.Recordset
    Set OpenRecordSet = objDatabase.OpenRecordSet(pstrSqlString, pCursorType, pLockType)
End Function

Answer 1

把OpenRecordSet AS OBJECT试一下