请各位高手指点!

本人写了一个用adodc控件和datagrid控件绑定的语句,但一运行到Adodc1.Refresh,就提示"至少一个参数没有被指定值",点击确定后,又提示"对象Refresh的方法IAdodc失败",请高手指点,小弟不明白怎么回事,请指点:程序如下:'定义变量
    Dim MyConn As New ADODB.Connection
    Dim MyRs As New ADODB.Recordset
    Dim MyCmd As New ADODB.Command
Private Sub cmdQuery_Click()
On Error GoTo err
If Me.txtPriceS.Text <> "" Then
   If Me.txtPriceE.Text <> "" Then
     If Me.txtPriceS.Text > Me.txtPriceE.Text Then
       MsgBox "起始价格不能大于截止价格!"
       Exit Sub
     End If
   End If
End If
   Dim strSQL As String
   Dim mdbPath As String
   mdbPath = App.Path + "\dataTable.mdb"
Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False;Jet OLEDB:Database Password=963001"strSQL = "select No1,Name,Lengtg*Width*height as chicun,Price from databaseTable where No1 is not null  "
If Me.txtNo.Text <> "" Then
  strSQL = strSQL + " and No1 like '%" + Me.txtNo.Text + "%'"
End If
If Me.txtName.Text <> "" Then
  strSQL = strSQL + " and name like '%" + Me.txtName.Text + "%'"
End IfAdodc1.RecordSource = strSQL
Adodc1.Refresh
    Set Me.dgQuery.DataSource = Me.Adodc1
err:
    MsgBox err.Description
End SubPrivate Sub cmdReset_Click()
 Me.txtName.Text = ""
 Me.txtNo.Text = ""
 Me.txtPriceE = ""
 Me.txtPriceS = ""
End Sub