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

SuhowUserRosterMultipleUsers()
DimcAewADODB.Coection
Dimcn2AewADODB.Coection
DimrAewADODB.Recordset
Dimi,jALong

cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.Ope"Dataource=c:\Northwind.mdb"

cn2.Ope"Provider=Microsoft.Jet.OLEDB.4.0;"_
am"Dataource=c:\Northwind.mdb"

'Theuserrosteriexposedaarovider-ecificchemarowset
'itheJet4OLEDrovider.YouhavetouseaGUIDto
'referencethechema,arovider-ecificchemaareot
'listediADO'typelibraryforchemarowsets

etr=cn.Opechema(adSchemaProviderecific,_
,"{947102-5d43-11d1-bdbf-00c04fb92675}")

'Outputthelistofalluserithecurrentdatabase.

Debug.Printrs.Fields(0).Name,"",rs.Fields(1).Name,_
"",rs.Fields(2).Name,rs.Fields(3).Name

Whileotrs.EOF
Debug.Printrs.Fields(0),rs.Fields(1),_
rs.Fields(2),rs.Fields(3)
rs.MoveNext
Wend

Endub