query: commandtext does not return a result set. Me ajude!!!

      with DM.qUsuarios do
      begin
         Close;
         SQL.Clear;
         Sql.Add(´INSERT INTO Usuarios(Login, Nome, TipoAcesso, Senha)   VALUES( :VarLogin, :VarNome, :VarTipoAcesso, :VarSenha )´);
         Parameters.ParamByName(´VarLogin´).Value := dbeLogin.Text;
         Parameters.ParamByName(´VarNome´).Value := dbeNome.Text;
         Parameters.ParamByName(´VarTipoAcesso´).Value := dbcbTipoAcesso.Text;
         Parameters.ParamByName(´VarSenha´).Value := dbeSenha.Text;
         VarLoginOld := dbeLogin.Text;
         Active := True;
         Close;
         ShowMessage(´Usuário cadastrado com sucesso´);
         Sql.Clear;
         Sql.Add(´Select * from usuarios where Login = :VarLoginOld´);
         Parameters.ParamByName(´VarLoginOld´).Value := VarLoginOld;
         Open;
         DM.tUsuarios.Cancel;
         DM.dqUsuarios.DataSet := DM.qUsuarios;
      end;