请高手帮我看看这个代码哪里错误

tlhui

一个文本框:会员号

一个标签框abel级别

当在文本框输入表中有的会员号码时,则在标签框中显示相对应的级别,如果表中没有此会员号,就进行提示

Private Sub 会员号_AfterUpdate()
    Me.Label级别.Caption = CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'")(0)
     If Me.会员号.EOF Then
        MsgBox "无此会员号，请重新输入！", vbQuestion, "提示..."
        Cancel = True
    End If
End Sub

是不是EOF表达错误啊?为什么一输入表中没有的会员号,就提示代码错误,要求调试`请高手帮我看看`谢谢

wwwwa

try:

If Not CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'").EOF Then

Me.Label级别.Caption = CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'")(0)
else

MsgBox "无此会员号，请重新输入！", vbQuestion, "提示..."
        Cancel = True

End If

tz-chf

用dlookup查找后再作判断简便