خطا در آپدیت کردن رکورد در ویژوال بیسیک

سلام من در اجرای این qry با مشکل مواجه ام.
به این شکل که دستورات query اجرا میشه منتهی مراتب باید برنامه یک بار ببندی تا تغییرات را ببینی .لطفا در این خصوص بنده را راهنمایی کنید .

این هم کد برنامه
Adodc1.Recordset.Filter = "shsh ='" + Text3.Text + "'

Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Adodc1.Recordset.Fields!P2 = Trim(Text4.Text)
Adodc1.Recordset.MoveNext
Loop

Adodc1.Refresh

در ضمن خواهشمندم اگه پروژه ای هست که بشه حذف و اضافه کردن رکوردها در جدول با استفاده از SQL باشه و امکان حذف چند رکورد بین جداول و آپدیت کردن موجود باشه ممنون میشم بهم معرفی کنید .
منظورم دستورات ارقبیل
select
update چند رکورد با توجه به یک شرط
do while
.
.
در حقیقت query نویسیم خوبه منتهی نمی تونم اجرا بگیرم.
با سپاس

سلام
اینکه میگین تغییرات را ببینی، Ado شما به چه کنترلی متصل شده ؟ گراید یا چیزی دیگه و چه کامپوننتی