مشکل کدها چیه؟

[SeyedMoosavi]

مشکل این کد ها چیه؟ (اون خط رو میگم که بلدش کردم)

Select Case ComboVam.Text
Case "شماره وام"
StrSQL = "VamTB.VamNumber"
Case "شماره حساب"
StrSQL = "VamTB.AccNumber"
Case "نام"
StrSQL = "MoshtariTB.Fname"
Case "نام خانوادگي"
StrSQL = "MoshtariTB.Lname"
Case "نام ضامن"
StrSQL = "VamTB1.Zamen_Name"
Case "تاريخ"
StrSQL = "VamTB.DateVam"
Case "مبلغ"
StrSQL = "VamTB.VamValue"
Case "تعداد اقساظ"
StrSQL = "VamTB.Aghsat"
Case "مانده حساب"
StrSQL = "VamTB.Mande"
End Select
Rst.Open "SELECT VamNumber AS[شماره وام],DateVam AS[تاريخ پرداخت],MoshtariTB.Fname AS[نام],MoshtariTB.Lname AS [نام خانوادگي],Zamen_Name AS[نام ضامن],VamVAlue AS[حالت وام],Aghsat AS [تعداد اقساط] ,Mande AS [مانده حساب],VamSanad AS [شماره سند] From VamTB,MoshtariTB WHERE (VamTB.AccNumber=MoshtariTB.AccNumber) And ('" + StrSQL + "' Like '" + TxtSerachVam + "%')"
Set GridVam.DataSource = Rst
Rst.Close
وقتی که توی TxtSerachVam مینویسم کلا دیتا گریدم رو خالی میکنه وقتی تکستم رو خالی میکنم دوباره دیتا گریدم پر میشه

[s_ahmadneya]

Rst.Open "SELECT VamNumber AS[شماره وام],DateVam AS[تاريخ پرداخت],MoshtariTB.Fname AS[نام],MoshtariTB.Lname AS [نام خانوادگي],Zamen_Name AS[نام ضامن],VamVAlue AS[حالت وام],Aghsat AS [تعداد اقساط] ,Mande AS [مانده حساب],VamSanad AS [شماره سند] From VamTB,MoshtariTB WHERE (VamTB.AccNumber=MoshtariTB.AccNumber) And ('" + StrSQL + "' Like '" + TxtSerachVam + "%')"
Set GridVam.DataSource = Rst
Rst.Close

سلام
در کدبالا اگر در کمبو شماره وام را انتخاب نمایید و در تکس مقدار %VamTB.VamNumber را تایپ کنید احتمالا" همه داده ها را می آورد .اگر اشتباه نکنم کد را به صورت زیر اصلاح کنید درست می شود.


WHERE (VamTB.AccNumber=MoshtariTB.AccNumber) And (" + StrSQL + " Like'" + TxtSerachVam + "%')"
Set GridVam.DataSource = Rst
Rst.Close

[m_vb1386]

Rst.Close رو حذف كن درست ميشه