سلام، باور كنيد تا نمونه نباشه سخته جواب همچين سؤالي رو دادن مثلاً جواب سؤال اولي كه از سايت پيدا كردين و جواب گرفتين به نظر من اينجوريه و شايد هر دو روش جواب بده پس بايد حداقل يه نمونه فايل باشه .
StrStr = StrStr & "[NameKala] ='" & Me.TextBox1 & "'" & " AND