实时错误‘91’ 对象变量或WITH块变量未设置！！在线等待

[sincere1314]

If Trim(Text1(0).Text) = "" Then
MsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1(0).SetFocus
Else
txtSQL = "select * from user_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
Do While (mrc.EOF = False)
If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then
MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
mrc.MoveNext
End If
Loop
End If

[xo2000]

http://expert.csdn.net/Expert/topic/1060/1060677.xml?temp=.9054682

[litsnake1]

up