ADOConnection 的问题,碰到数据库独占了

ShareAlias:=Readini(Apppath+'DBSET.ini','DBINFO','db');
     DM.ADOCon.Connected:=False;
     dbstr:='Provider=SQLOLEDB.1;Password="'+''
           +'";Persist Security Info=True;User ID='+'sa'
           +';Initial Catalog='+ShareAlias
           +';Data Source='+Readini(Apppath+'DBSET.ini','DBINFO','DataSource');
     DM.ADOCon.ConnectionString:=dbstr;
     DM.ADOCon.LoginPrompt:=False;
     DM.ADOCon.Connected:=True;窗体的adoquery来连这个DM.ADOCon，一般不会有问题的。不过我出现过数据库被独占的情况。用查询分析器查询不起作用，一旦关闭程序，查询分析器就立刻能够查询了。我在所有的SQL语句都加了出错处理，发现没有错误出现过。
ADOQUERY都是动态来连接DM.ADOCon，FORM都是动态创建的，而且都有释放。谁帮我解决这个问题，我给他100分