对象Refresh的方法IAdodc失败

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim temp As String
Dim Tree_Node As String
Dim rstemp As New ADODB.Recordset
Tree_Node = TreeView1.SelectedItem.Key
If Tree_Node = "设备分类" Then
Adodc2.RecordSource = "select * from View_sbfl"
Adodc2.Refresh
Else
Ado_temp.RecordSource = "select * from View_sbfl where 设备类别='" + Tree_Node + "'"
Ado_temp.Refresh
Adodc2.RecordSource = "select * from View_sbfl where 设备类别='" + Tree_Node + "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
DataGrid1.Refresh
ElseIf Adodc2.Recordset.RecordCount = 0 Then
Adodc2.RecordSource = "select * from View_sbfl where 设备名称='" + Tree_Node + "'"
Adodc2.Refresh
Ado_temp.RecordSource = "select * from View_sbfl where 设备名称='" + Tree_Node + "'"
Ado_temp.Refresh

If Adodc2.Recordset.RecordCount > 0 Then
temp = Adodc2.Recordset.Fields("设备类别")
Ado_temp.RecordSource = "select * from View_sbfl where 设备类别='" + temp + "'"
Ado_temp.Refresh
Set DataGrid1.DataSource = Ado_temp
End If
End If
End If
End Sub
Adodc的数据源已经指定过。错误提示是Ado_temp至少一个参数没有被指定值，还有对象Refresh的方法IAdodc失败。求指点！谢谢。

你把user这个表名换成别的，我在使用access数据库时用user作为表名就会报错，希望你的也是，这样就好解决了``

1. temp可能有空值吧 2. 设置属性commandType=adcmdtext，或许refresh没问题了。

设计时DataGrid1的DataSource属性不用指定值，仅代码指定即可。