Function ReturnUserRoster()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim Korisnici

'cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\Program Files\Microsoft " & _
    "Office\Office11\Samples\Northwind.mdb;"
 Set cnn = CurrentProject.Connection
Set rs = cnn.OpenSchema(adSchemaProviderSpecific _
    , , JET_SCHEMA_USERROSTER)
Do While Not rs.EOF
Korisnici = Korisnici & rs.GetString & vbCr
Loop

Set rs = Nothing
Set cnn = Nothing
End Function