database1:cannot perform this operation on an open database怎样改正。(100分)

请问哪位大侠，在把那个access的登陆界面给去掉后，下面为实现的代码：
database1.LoginPrompt :=false;
database1.Params.clear;
Database1.Params.insert(0,'username =''');
Database1.Params.insert(0,'password =''');
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from user');
query1.Open;
确实使登陆界面去掉了，但使却出先现了“database1:cannot perform this operation on an open database”，使什么错误，哪位大侠伸手救救我？？？？急，很急！！！

database1.connected:=False;
database1.LoginPrompt :=false;
database1.Params.clear;
Database1.Params.insert(0,'username =''');
Database1.Params.insert(0,'password =''');
database1.connected:=true;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from user');
query1.Open;

好的，我试试！！

谢谢，好了！真感激你啊！