还是有问题呀！！！！！（老莫的春天等人请进）

Question

代码如下：Private Sub Command3_Click()With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"
 Text1.Text = .Recordset.Fields("BasePrice")
End WithEnd Sub窗体中设计了一个名为text1的textbox,一个名为combo2的组合框，一个adodc，
想要实现，把经过查询的结果赋值给文本框。但是，编译的时候，说“对象变量或WITH块变量未设置”
这是怎么回事呀？？？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
刚才两位的建议我都试过来，还是有问题。这回有报：属性的使用无效了，

Answer 1

Private Sub Command3_Click()With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'".Refresh Text1.Text = .Recordset.Fields("BasePrice")
End WithEnd Sub