VB编程的一个小问题，请高人指教，谢谢。

这是一个搜索铵钮的原代码Private Sub search_Click()Dim err As ADODB.ErrorSet cmd = New CommandSet rs = New RecordsetWith cmd .ActiveConnection = cn .CommandText = "select * from 学生基本情况表 where 学号=?" End With Set p1 = cmd.CreateParameter("p1", adInteger, adParamInput) cmd.Parameters.Append p1 p1.Value = Text1.Text Set rs = cmd.Execute Set Text1.DataSource = rs Set Text2.DataSource = rs Set Text3.DataSource = rs Set Text4.DataSource = rs Set Text5.DataSource = rs Set Text6.DataSource = rs Set Text7.DataSource = rsEnd Sub这是我改后的代码Private Sub search_Click()Dim err As ADODB.ErrorSet cmd = New CommandSet rs = New RecordsetWith cmd .ActiveConnection = cn .CommandText = "select * from 学生基本情况表 where 姓名=?" End With Set p2 = cmd.CreateParameter("p2", adChar, adParamInput) cmd.Parameters.Append p2 p2.Value = Text2.Text Set rs = cmd.Execute Set Text1.DataSource = rs Set Text2.DataSource = rs Set Text3.DataSource = rs Set Text4.DataSource = rs Set Text5.DataSource = rs Set Text6.DataSource = rs Set Text7.DataSource = rsEnd Sub没改之前他是用“学号”来搜索的，可以正常的搜索，但是我改之后的代码搜索时就出现了以下情况实时错误‘3708’不正常地定义参数对象。提供了不一到处或不完整的信息。请问高人这是什么原因呢？如果我想用“姓名”来搜索，应该怎么做？我对VB一点也不懂，望高人讲明白点，谢谢了。Set Text1.DataSource = rs ⼀⼀学号文本Set Text2.DataSource = rs ⼀⼀姓名文本