Exclusive Property Example

The example first opens a Database as single-user (exclusive), then changes it to multiuser access (non-exclusive).

Data1.DatabaseName = "BIBLIO.MDB"
Data1.RecordSource = "Publishers"
Data1.Exclusive = True
Data1.Refresh
...
Data1.Exclusive = False
Data1.Refresh