if self.Edit1.Text='' then
     begin
        showmessage('账号不能为空!');
        self.Edit1.Focused;
     end
     else
       if self.Edit2.Text='' then
       begin
          showmessage('密码不能为空!');
          self.Edit2.Focused;
       end
     else
     begin
         sqlstring:='select *from Login where 员工编号='''+self.Edit1.Text+ ''' and  密码='''+
                    self.Edit2.Text+'''';
         DM.ADOQuery1.Close;
         DM.ADOQuery1.SQL.Clear;
         DM.ADOQuery1.SQL.Add(sqlstring);
         DM.ADOQuery1.Open;
         if DM.ADOQuery1.RecordCount=1 then
         begin
               form1.Show;
               form9.Hide;
         end
         else
         begin
               showmessage('账号或密码错误!');
               self.Edit1.Clear;
               self.Edit2.Clear;
这是个连接sql的登录界面代码，可是要用这个代码连接ACCESS数据代码要怎么改，我翻遍了整本书也没有找到啊！请各位大神帮帮忙！

或者谁给个连接ACCESS的程序我照个改也行

几个'我一直是懒得数的
你可以试试这样：
sqlstring:='select * from login where (员工编号='+quotedstr(self.edit1.text)+') and (密码=‘+quotedstr(self.edit2.text)+')';