快来看一看了，程序如何中断，重新执行。

Question

VB中程序怎么跳转啊。就是那个if那儿如果为真程序中断程序跳到第一行，重新执行，不为真，就执行下面的语句，GOTO可以用吗？如何写，谢谢。
        RndNumber = Int(IntTotalPersonCount * Rnd + 1)
        With RstSQL
            .ActiveConnection = CnnDSN
            .LockType = adLockReadOnly
            .CursorType = adOpenStatic
            .Source = "SELECT * FROM Lottery WHERE Person_ID = " & Trim(Str(RndNumber)) & ""
            .Open
        End With
        If RstSQL.Fields("Checked") = True Then
这里如何才能使程序中断，然后返回第一行重新执行啊。
            cmdOK.Enabled = False
            cmdCancel.Enabled = True
            cmdCancel.SetFocus
            MsgBox "此号码不存在或已经中过奖并且已经做了保存！  ", vbInformation + vbOKOnly, "提示信息"
        Else
            cmdOK.Enabled = True
            cmdCancel.Enabled = True
            cmdOK.SetFocus
        End If
       ………………略………………
          
          RstSQL.Close

Answer 1

goto语句示例Sub GotoStatementDemo()
Dim Number, MyString
   Number = 1    ' 设置变量初始值。
   ' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
   If Number = 1 Then GoTo Line1 Else GoTo Line2
   
Line1:
   MyString = "Number equals 1"
   GoTo LastLine   ' 完成最后一行。
Line2:
   ' 下列的语句根本不会被完成。
   MyString = "Number equals 2"
LastLine: 
   Debug.Print MyString   ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub

Answer 2

zz:
        RndNumber = Int(IntTotalPersonCount * Rnd + 1)
        With rstsql
            .ActiveConnection = CnnDSN
            .LockType = adLockReadOnly
            .CursorType = adOpenStatic
            .Source = "SELECT * FROM Lottery WHERE Person_ID = " & Trim(Str(RndNumber)) & ""
            .Open
        End With
        If rstsql.Fields("Checked") = True Then
'这里如何才能使程序中断，然后返回第一行重新执行啊。
            cmdOk.Enabled = False
            cmdCancel.Enabled = True
            cmdCancel.SetFocus
            MsgBox "此号码不存在或已经中过奖并且已经做了保存！  ", vbInformation + vbOKOnly, "提示信息"
            rstsql.Close
            GoTo zz
        Else
            cmdOk.Enabled = True
            cmdCancel.Enabled = True
            cmdOk.SetFocus
        End If
       ………………略………………
          
        If rstsql.State = 1 Then rstsql.Close