پیغام خطا در Commit کردن

[Saeid59_m]

بانک اطلاعاتی من SQL 2005 است
کد برنامه :

  try

   MyData.ADOCommand1.CommandText:='Begin Transaction';

   MyData.ADOCommand1.Execute;

//**********

    Str_Query:='UPDATE Users '+

    'SET IP_Login='+QuotedStr('')+

    ' , Login_now=0 , Login_Date='+QuotedStr('')+' , Rec_Use='+QuotedStr('')+

    ' WHERE User_ID='+inttostr (Online_Rec.User.ID);



    MyData.ADOCommand1.CommandText:= Str_Query;

    MyData.ADOCommand1.Execute;

//**********

   MyData.ADOCommand1.CommandText:='Commit Transaction';

   MyData.ADOCommand1.Execute;





  except

ShowMessage ('Error !');

  end;

این پیغام خطا رو می ده .