VB求助 关于VB循环问题

xunka:
dim st as integer
dim lSnr as string
st=100
st=rd.dc_card(0,lSnr) ''一个寻卡函数
If st <> 0 Then ' 判断是否找到卡
GoTo xunka ''''没有找到卡
End If
'''找到卡...
beep = rd.dc_beep(25)
List3.AddItem ("系统提示： 检测到磁卡")
strsql = "select * from yonghu where y_no='" & lSnr & "'"
If IsOK = True Then ''此函数是连接打开数据库的。
If rs.BOF = True And rs.EOF = True Then
List3.AddItem (" 错误： 在数据库中没有找到卡号")
Call connclose ''关闭数据库连接
Else
List3.AddItem (" 系统： 正确的会员卡)
Call connclose ''关闭数据库连接
GoTo xunka ''''返回到循环找卡的程序
End If
End If

这个程序一执行为什么就会没响应了呢？？？
如果死循环肯定会让程序没响应的话，怎样才可以实现类似的功能？？
找到答案了哈。。。还是谢谢你们
就是在中间加了个DOEVENTS

VB求助 关于VB循环问题 关于二级VB 循环队列问题 关于VB 循环结构程序设计的问题 关于VB循环结构的问题 还是关于VB循环语句的问题 关于vb循环次数的问题？急 关于 VB for循环 关于vb FOR 循环 关于vb死循环 关于VB循环语句