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

بانک اطلاعاتی من 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;

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

فکر کنم اگه این مدلی بنویسی درست بشه !!

MyData.ADOCommand1.CommandText:='Begin Transaction'+Str_Query+'Commit Transaction';

MyData.ADOCommand1.Execute; 

همه رو تو یک دستور SQL اجرا کن ...

یا میتونی از دستورات استفاده کنی اینا کاماتره !!!

Begin Transaction 

GO

Update Code Here

Go

Delete Code Here

Go

  Insert Code Here

Go

if @@Error>1 Rollback Transaction

Else Commit Transaction

یا میتونی از دستورات استفاده کنی اینا کاماتره !!!

Begin Transaction 

GO

Update Code Here

Go

Delete Code Here

Go

  Insert Code Here

Go

if @@Error>1 Rollback Transaction

Else Commit Transaction

دستورات کاملاً درست بود .
مشکل این بود که خاصیت Keep Connection مربوط به Ado Connection رو روی False تنظیم کرده بودم .
از راهنمائی دوستان بسیار ممنون .

البته می تونید به این صورت هم استفاده منید

AdoConnection.BeginTrans;

TRY

.

.

.

AdoConnection.Commit;

Except

Adoconnection.RollBack;

end;

در SQL Server 200 که جواب می داد
اینجا هم فکر نکنم مشکلی باشه