سلام من در اجرای این 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