Obtener la lista de usuarios actuales

Hola; quiera obtener la lista de usuarios que estan conectados a cierta base
de datos SQL Server en cierto momento.

En principio estoy haciendolo en VB.NET. He escrito el siguiente código:

Sub Usuarios()
Dim Server As SQLDMO.SQLServer
Try
Server = New SQLDMO.SQLServer
Catch
Return
End Try
If Me.cbServer.Text <> "" Then
Try
Server.LoginTimeout = 3
Server.LoginSecure = True
Server.Connect(Me.cbServer.Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "No se ha podido conectar
con el servidor")
Return
End Try
End If
Dim x As Int16
x = Server.Databases.Item(cbDataBase.Text).EnumUsers.Properties.Count
MsgBox(x & " usuarios en " & cbDataBase.Text)
End Sub

No obstante debe de haber algo mal, pues siempre me da el mismo número de
usuarios, independientemente de que escoga en el combo cbDataBase una base
de datos u otra.

¿Qué esta pasando?; ¿Puedo obtener la cantidad de usuarios (y si puede ser
también el nombre de usuario NT de cada uno, mejor que mejor) por otro
método?

Muchas gracias

Saludos

XTV