Программа для входа/регистрации с использованием БД Access

#include <vcl.h>
#pragma hdrstop
#include <String.h>
#include "loq_pas11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool flag;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
flag=false;
if ((Edit1->Text=="")||(Edit2->Text==""))
 {
 flag=true;
 ShowMessage("Заполните все поля");
 }
if (!flag)
 {
 if (ADOTable1->FieldByName("login")->AsString==Edit1->Text)
  {
  if (ADOTable1->FieldByName("password")->AsString==Edit2->Text)
   {
   ShowMessage("Вход выполнен успешно");
   }
  else ShowMessage ("Неверный логин или пароль");
  }
 else ShowMessage ("Неверный логин или пароль");
 }
}

    // ...
    Variant locateValues[2];
    locateValues[0] = Variant(Edit1->Text);
    locateValues[1] = Variant(Edit2->Text);
 
    if (ADOTable1->Locate("login;password", VarArrayOf(locateValues, 1),
        TLocateOptions()))
    {
        ShowMessage("Вход выполнен успешно");
    }
    else
        ShowMessage("Неверный логин или пароль");