ขอถามเรื่อง Form Regis ครับ ว่าถ้าหากใส่ข้อมูลซ้ำจะขึ้นว่าใช้ไม่ได้อ่ะครับ

Public Class register

    Private Sub bt_regis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_regis.Click
        If namebox.Text = "" Then
            MessageBox.Show("กรูณากรอกชื่อของท่าน")
            Me.namebox.Focus()
            Exit Sub
        End If
        If lastnamebox.Text = "" Then
            MessageBox.Show("กรุณากรอกนามสกุลของท่าน")
            Me.lastnamebox.Focus()
            Exit Sub
        End If
        If departmentbox.Text = "" Then
            MessageBox.Show("กรุณากรอกสาขาของท่าน")
            Me.departmentbox.Focus()
            Exit Sub
        End If
        If yearbox.Text = "" Then
            MessageBox.Show("กรุณากรอกชั้นปีของท่าน")
            Me.yearbox.Focus()
            Exit Sub
        End If
        If idbox.Text = "" Then
            MessageBox.Show("กรุณาใส่ รหัส นักเรียน")
            Me.idbox.Focus()
            Exit Sub
        End If
        If passwordbox.Text = "" Then
            MessageBox.Show("กรุณาใส่ password ที่ใช้")
            Me.passwordbox.Focus()
            Exit Sub
        End If


        Dim myConnection As SqlCeConnection

        myConnection = New SqlCeConnection("Data source=D:\Project New\WindowsApplication1\WindowsApplication1\Database1.sdf;")
        myConnection.Open()

        Dim myCommand As SqlCeCommand = myConnection.CreateCommand()

        myCommand.CommandText = "insert into [mytable] ([name],[surname],[department],[year],[id],[password]) values " & _
                    " ('" & Me.namebox.Text & "','" & Me.lastnamebox.Text & "','" & Me.departmentbox.Text & "','" & Me.yearbox.Text & "','" & Me.idbox.Text & "','" & Me.passwordbox.Text & "')"
        myCommand.CommandType = CommandType.Text
        myCommand.ExecuteNonQuery()
        myConnection.Close()

        MessageBox.Show("Save Successfully.")




        Me.Hide()
        Dim f As New Home
        f.Show()

    End Sub