求助VB查询数据问题

Private Sub call_server()

ic_st = 1

thisproxid = read_iccard '获取卡号

'thisproxid = "1234567890"

If thisproxid > "0" Then '如果是有效的卡号

Adodc1.Recordset.Find "proxid='" + thisproxid + "'", , , 1

If Adodc1.Recordset.EOF Then '找不到卡号

rc = sndPlaySound("no.wav", SND_ASYNC)
disp$ = thisproxid + " 还没登记!"

Text1.Text = disp$

MSHFlexGrid1.AddItem ".", 1
MSHFlexGrid1.TextMatrix(1, 1) = disp$
Else
MsgBox "登陆成功"

End If
End If


End Sub




为什么我无论输入登记了的号码还是输入没有登记的号码都显示没有登记，我用的是MYSQL数据库。我那里做错了，请高手指点

Adodc1.Recordset.Find "proxid='" + thisproxid + "'", , , 1
改成

Adodc1.Recordset = "select * from tb where proxid='" & thisproxid & "'"

Adodc1.Refresh

不错！