I use ADOs and some DAOs throughout my project and I keep getting this awful message saying "TOO MANY ACTIVE USERS" and cannot go any further. Does anyone know what this is about or what I neeed to do?

I am using this to open my ADOs:

With Adodc1
.Mode = adModeReadWrite
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=S:\DBAPPS\Repo\RepoInv.mdb"
.CommandType = adcommandtext
.RecordSource = "Select * from LocationTracking Where locationtracking.AccountNum = " & "'" & frmRepoInventory.txtFindAccount.Text & "'"
.Refresh
End With

AND THIS for my DAOs:

Set db = DBEngine.OpenDatabase("S:\Dbapps\Repo\RepoInv", False, False)
Set tb22 = db.OpenRecordset("holdcode")

tb22.Close
db.Close