datareport

[zoroaster]

سلام . من می خواهم بوسیله datareport جستجوی پارامتری انجام دهم و کدهایی همدر برنامه ام دارم اما هنگام اجرا با پیغام parameter has no default value مواجه می شوم ایراد کار کجاست
کدها بصورت زیر است:
Private Sub Command3_Click()

With DE1
If DE1.rsShowExpenseAccordDate.State = adStateOpen Then
DE1.rsShowExpenseAccordDate.Close
End If

DE1.ShowExpenseAccordDate Trim(txt1.Text), Trim(txt2.Text), Trim(txt3.Text)


If DE1.rsShowExpenseAccordDate.RecordCount > 0 Then
' MsgBox Found " & DE1.rsSearchNeedyPersonNo.Fields("Fname").Value
Set ExpenseReport.DataSource = DE1
ExpenseReport.Show
'set DataGrid1.DataSource = DE1

DE1.rsShowExpenseAccordDate.Close
Else
ok = MsgBox("јæÑÏí íÇÝÊ äÔÏ", vbInformation + vbMsgBoxRight + vbOKOnly, " ÎØÇí ˜ÇÑÈÑ")
End If

End With
End Sub