有关ADOCONNCET登陆SQL SERVER的问题，请高手指点。

程序由MDIFORM、MDICHILDFORM,及NORMAL三种窗体组成，还有一个数据模块，及一个登录窗口，已设置了ADOConnection1的LOGINPROMPT为FALSE,可还是会出现那个系统自带的登录窗口，
我在自己写的登录窗口的OK按钮里写了这样的代码：
procedure TfmLogin.Button1Click(Sender: TObject);
var
  sConnectionString: string;
begin
  sConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=' + Trim(edtUserName.Text) + ';Initial Catalog=Northwind;Data Source=' + cbSqlServerName.Text + ';Password=' + edtPassword.Text;  dmForm.ADOConnection1.ConnectionString := sConnectionString;
  dmForm.ADOConnection1.Connected := True;
end;可是不知为何点击此按钮后，系统自带的登录窗还是出现了，而且主窗体在点击了确定以后也不出现了。请问该如何做呢？比如我有一个登录窗体，fmLogin,一个主窗体MainForm,还有一个数据模块dmForm,以及几个子窗体，请问如何实现这种自定义登陆窗体的功能呢？谢谢各位了！