Option Compare Database
Const SCHEMA_USER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"

Private Sub Form_Load()
    Dim rst As ADODB.Recordset
    Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , SCHEMA_USER)
    lstUsers.RowSource = vbNullString
    rst.MoveFirst
        Do Until rst.EOF
            lstUsers.AddItem rst(0)
            rst.MoveNext
        Loop
    rst.Close
    Set rst = Nothing
End Sub