مشكلة بسيطة فى كود التحقق

السلام عليكم و رحمة الله و بركاته

اخوانى هذا الكود يقوم بالتحقق اذا كان اسم المستخدم مسجل من قبل ام لا

    Private Sub TextBox18_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox18.LostFocus
        For u As Integer = 0 To DataSet1.Tables("Table1").Rows.Count
            If DataSet1.Tables("Table1").Rows(u).Item("user_name").Equals(TextBox18.Text) Then
                Dim result As MsgBoxResult = MsgBox("عفواً ، اسم المستخدم الذى ادخلته محجوز الرجاء اختيار اسم آخر", MsgBoxStyle.OkOnly)
                If result = MsgBoxResult.Ok Then
                    TextBox18.Focus()
                    Exit Sub
                End If
            End If

        Next
    End Sub

هذا الكود يتحقق فعلا اما إذا كان الاسم موجود او لا و لكن عندما يكون الاسم غير موجود يظهر لى هذه الرساله

ارجو الافادة