新手学习数据库，请各位帮帮忙...谢谢 ADODC控件的刷新
有下面这样一小段代码：
Private Sub Combo2_Click()
Dim fieldname
fieldname = Trim(Combo1.Text)
If Adodc1.Recordset.Fields(fieldname).Type = 202 Then '判断是否为文本型 202 代表是否为文本型 Adodc1.RecordSource = "select * from 库存 where" & fieldname & "='" & Combo2.Text & "'"
Else
Adodc1.RecordSource = "select * from 库存 where" & fieldname & "=" & Combo2.Text
End If 以上的两个都没报错，
Adodc1.Refresh 到这儿不行了，说对象的Refresh方法 作用Adodc1控件失败
我把这句删了，下面的那句又报错了，
Text1.Text = Adodc1.Recordset.Fields("货物编号")
Text2.Text = Adodc1.Recordset.Fields("货物名称")
Text3.Text = Adodc1.Recordset.Fields("库存量")
Text4.Text = Adodc1.Recordset.Fields("单位")
End Sub

我不知道是哪儿错了，特来请教各位，请多多指教.谢谢...

[解决办法]

VB code

'where后加个空格Adodc1.RecordSource = "select * from 库存 where " & fieldname & "='" & Combo2.Text & "'"
[解决办法]
楼上是正确的！
[解决办法]
Adodc1.Refresh一般这里出错，大多都是RecordSource后的SQL语句有问题。