השאילתה אמורה לבדוק ע"י הכנסת שם עיר ולהציג את כל העובדים מאותה עיר בקיצור זה מה שכתבתי.. Dim ssql As String ssql = "select * from tEmps where sCity = &txtsqul1&" Adosupl2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= " & App.Path & "\Employee.mdb;Persist Security Info=False" Adosupl2.CommandType = adCmdText Adosupl2.RecordSource = ssql Adosupl2.Refresh עכשיו מה שאני מכניס בטקסט הוא לא עושה כלום ורושם שלא רשמתי טוב את השאילתה מה היא הטעות פה: ssql = "select * from tEmps where sCity = &txtsqul1&" אשמח אם תעזרו לי תודה מצטער שהקוד מעותק קצת מעפן אבל זה מה שיצא לי..