مشکل در جستجوی اطلاعات بانک اطلاعاتی

[sinavb]

سلام دوستان من توی برنامم می خوام از یه جستجوی ساده استفاده کنم ولی انجام نمی ده
من می خوام توی عکس زیر
http://0k.014.img98.com/out.php/i440067_Untitled1.jpg

شماره قبض رو وارد کرده و بر روی دکمه جستجو که کلیک کرد اطلاعات ثبت شده ی اون شماره قبض در بانک در فریم سمت چپ نمایش داده بشه
مثل مدیریت کلوپ mst ولی هر کاری می کنم انجام نمی ده
توی دکمه جستجو هم از این کد استفاده کردم:

If Text1.Text <> "" Then
ado.RecordSource = "Select *from sefgerefte where shomareghabz='" & Text1.Text & "'"
Text1.Text = ""
Exit Sub
End If
If Text2.Text <> "" Then
ado.RecordSource = "Select *from sefgerefte where namekhanevadegi='" & Text2.Text & "'"
Text2.Text = ""
Exit Sub
End If


می شه خواهشا کمک کنید :خجالت::خجالت:

[SilverLearn]

دوست عزيز كد ها مشكلي نداره
بگو مشكل كلي شما چيست (احيانن چه خطايي برنامت داره)

[mostafa_golden]

سلام دوست من
شما برنامه را آپ کن تا اصلاح کنم.

[kitcat_m18]

با سلام خدمت شما دوست برنامه نویس گرامی:
این کد شماست:

If Text1.Text <> "" Then
ado.RecordSource = "Select *from sefgerefte where shomareghabz='" & Text1.Text & "'"
Text1.Text = ""
Exit Sub
End If
If Text2.Text <> "" Then
ado.RecordSource = "Select *from sefgerefte where namekhanevadegi='" & Text2.Text & "'"
Text2.Text = ""
Exit Sub
End If
شما اگه بعد از عبارت

ado.RecordSource = "Select *from sefgerefte where shomareghabz='" & Text1.Text & "'"
این کد رو بنویسید مشکل شما حل میشه:

ADO.Refresh

شما با کدی که نوشتید Select زدید اما چون ADO را refresh نمی کنید کد شما اجرا نمی شود.

[sinavb]

وقتی refresh رو می زارم این ارور رو می ده
syntax error in from
بعد وقتی debug رو می زنم به همین کد رفزش ایراد می گیره