Public Sub RecordNumber(ByVal countRst As ADODB.Recordset, ByVal countCnn As ADODB.Connection)
countRst.CursorLocation = ADODB.CursorLocationEnum.adUseClient
countRst.Open(sqlStr, countCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic, 1)
Count = countRst.RecordCount
End Sub

这是定义在模块里的一个函数，当主程序执行到这个函数的时候，出现了错误，如果在主程序中把RecordNumber(sqlRst, sqlCnn)这句注释掉程序也就没有什么异常了，可是也不能得到我想要的Count的值了，请问各位大侠这个函数定义的有错误吗？还是别的什么原因，请大家帮忙分析一下哦！有弟在此小礼了！

[此贴子已经被作者于2006-9-6 9:51:32编辑过]

不要对自己失去信心。

Sub不返回值的.你看看这个例子吧.