مشکل در دیتاریپورت

[mf_engineer]

با سلام
من می خوام که بدون استفاده از de برای نمایش گزارشم خودم کدنویسی کنم
من این کدها رو می نویسم
DataReport4.DataMember = "SELECT * FROM masajed where sknamemoghofe='" & Trim(Text1.Text) & "' "
With DataReport4.Sections("Section1").Controls
.Item("text1").DataField = adoRS("code").Name
.Item("text2").DataField = adoRS("sknamemoghofe").Name
.Item("text3").DataField = adoRS("pelak").Name
.Item("text4").DataField = adoRS("kelase").Name
.Item("text5").DataField = adoRS("addres").Name
End With

Set DataReport1.DataSource = adoRS
DataReport1.Show

ولی موقع اجرا با این خطا روبرو میشم

Arguments are of the wrong type,...
ممنون می شم بهم بگین که کد من درسته یا نه واینکه کد درستشو بهم بدین
یاحق