请教如何编写一个统计的功能函数

[ourbone]

'统计注册用户数
Sub CountRegister()
Dim strSerial As String
Dim rsRegister As New ADODB.Recordset
Dim connRegister As New ADODB.Connection
Dim strSQLReg As String
strSQLReg = "SELECT COUNT(*) from Register"
connRegister.Open ConnStr
rsRegister.Open strSQLReg, connRegister, adOpenStatic, adLockReadOnly
rsRegister (0)

End Sub
'统计注册用户数
'请问如何修改这个函数以便能实现它的返回值为Integer ?

[landog]

function CountRegister() as integer
Dim strSerial As String
Dim rsRegister As New ADODB.Recordset
Dim connRegister As New ADODB.Connection
Dim strSQLReg As String
strSQLReg = "SELECT *from Register"
connRegister.Open ConnStr
rsRegister.Open strSQLReg, connRegister, adOpenStatic, adLockReadOnly
rsRegister (0)

countregister=rsRegister.count
End Sub

[lingfeng_314]

private Function CountRegister() As Integer
Dim strSerial As String
Dim rsRegister As New ADODB.Recordset
Dim connRegister As New ADODB.Connection
Dim strSQLReg As String
strSQLReg = "SELECT COUNT(*) from Register"
connRegister.Open ConnStr
rsRegister.Open strSQLReg, connRegister, adOpenStatic, adLockReadOnly
CountRegister=rsRegister.fields(0)　　'修改处
End Sub

[lingfeng_314]

还要看你的表Register是否是累计表。也就是说如果一条记录只能有一个人注册的话，就用landog就可以了。

[ourbone]

我用的时候系统提示rsRegister.count无效。我统计的主要目的是想将它赋值给另一个变量。

[ourbone]

小旋风谢谢你的帮助，终于解决了。