求解答，运行时出现“对象打开时，不允许操作”

rs.open前先rs.close下就可以,修改后代码如下：
Private Sub Command3_Click()
Dim t4 As Long
Dim t40 As Long
t4 = Val(Text4.Text)
Call LinkData
if rs.state=1 then rs.close
rs.Open "select 价格 from 微型车床信息 where 编号='" & Trim(Combo2.Text) & "'", conn, 1, 1
If rs.RecordCount = 0 Then
if rs.state=1 then rs.close
rs.Open "select 价格 from 微型钻铣床信息 where 编号='" & Trim(Combo2.Text) & "'", conn, 1, 1
Else
if rs.state=1 then rs.close
rs.Open "select 价格 from 微型台钻信息 where 编号='" & Trim(Combo2.Text) & "'", conn, 1, 1（错误指向此行）“对象打开时，不允许操作”
End If
t40 = rs.Fields("价格")
sum = t4 * t40
Text5.Text = sum
End Sub

非常感谢你的解答！