主题：有办法跳出循环后，不执行循环语句后面的语句吗？

        Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
        For Each r As Row In Forms("产品档案").Controls("table1").Table.Rows
            Dim d2 As DataRow = DataTables("产品档案").Find("产品名称 = '" & txt2.text & "'")
            If d2 IsNot Nothing Then
                msgbox("产品名称重复,请重新输入")
               Exit For
                Return
            End If
        Next
       
        DataTables("产品档案").save
        msgbox("保存成功")
        DataTables("产品档案").Load
        e.Form.Close

跳出循环了，还执行下面保存语句，有更好的方法吗？