🚀 go-pugleaf

I keep on getting an exception error before the catch handler.  I am 
putting the wrong password in the dialog box on purpose. What am I doing 
wrong?


  ls_adoString = "Provider=SQLOLEDB.1;Persist Security Info=False;";
  ls_adoString = ls_adoString + "User ID =" + sle_userid->Text + ";";
  ls_adoString = ls_adoString + "Data Source =" + sle_server->Text + ";";
  ls_adoString = ls_adoString + "Password =" + sle_password->Text;
  DataModule1->ADOConnection1->ConnectionString = ls_adoString;

  try{
     // Exception happens after the open call.
     DataModule1->ADOConnection1->Open();
     DataModule1->ADOQuery1->SQL->Clear();
     DataModule1->ADOQuery1->SQL->Add("sp_databases");
     DataModule1->ADOQuery1->Open();
     DataModule1->DataSource1->DataSet->First();

     while (DataModule1->DataSource1->DataSet->Eof == false){
        
ListBox1->Items->Add(DataModule1->DataSource1->DataSet->FieldByName("DAT
ABASE_NAME")->AsString );
        DataModule1->DataSource1->DataSet->Next();
     }

     DataModule1->ADOQuery1->Close();
     DataModule1->ADOConnection1->Close();
  }
  catch(EOleException &VCLException){
     Application->MessageBox(VCLException.Message.c_str(),"Error",0L);
  };