如何确定有多少人登陆数据库？

sub ShowUserRosterMultipleUsers()
Dim cn作为新的ADODB。连接
Dim cn2作为新的ADODB。连接
Dim rs As New ADODB。记录集
Dim i，j As Long

cn。Provider = "Microsoft。Jet.OLEDB.4.0"
cn。打开“数据源=c:\Northwind.mdb”

cn2。Open "Provider=Microsoft。Jet . OLEDB.4.0”_
& "数据源=c:\Northwind.mdb "

用户名册在Jet 4 OLE DB提供程序中作为特定于提供程序的架构行集
'公开。您必须使用GUID来
'引用架构，因为特定于提供程序的架构不会
'列在ADO的架构行集类型库中

设置rs = cn。open schema(adschemaprovidersspecific，_
，" { 947 bb 102-5d 43-11 D1-bdbf-00 c 04 FB 92675 } ")

输出当前数据库中所有用户的列表。

调试。打印rs。字段(0)。名字，“”，rs。字段(1)。名称，_
" "，rs。字段(2)。姓名，rs。字段(3)。名字

而不是rs。EOF
Debug。打印rs。字段(0)，rs。字段(1)，_
rs。字段(2)，rs。字段(3)
rs下一步

末端接头