อยากทราบเกี่ยวกับการกรอกค่าซ้ำ ทำให้แจ้งเตือนของ Access + VB2010

			Dim intNumRows As Integer
			strSQL = "SELECT COUNT(*) FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "		
			objCmd = New OleDbCommand(strSQL, objConn)
			intNumRows = objCmd.ExecuteScalar()

			IF intNumRows > 0 Then
				Me.pnlAdd.Visible = False
				Me.lblStatus.Visible = True
				Me.lblStatus.Text = "CustomerID already exist."
			Else		
				strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
				" VALUES " & _
				" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
				" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"

				objCmd = New OleDbCommand
				With objCmd
				   .Connection = objConn
				   .CommandText = strSQL
				   .CommandType = CommandType.Text		   
				End With
								
				Me.pnlAdd.Visible = False
				Try
					objCmd.ExecuteNonQuery()            
					Me.lblStatus.Text = "Record Inserted"
					Me.lblStatus.Visible = True
				Catch ex As Exception
					Me.lblStatus.Visible = True
					Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
				End Try
		End IF

       Dim i As Integer = 0
        Dim dt As DataTable
        For i = 0 To grdEmployeer.Rows.Count - 1
            Dim checkID As String = ""
            checkID = dt.Rows(i)("รหัสพนักงาน").ToString()

            If checkID = Me.TB.Text Then
                MessageBox.Show("มีข้อผิดพลาดจากการทำงาน เนื่องจากข้อมูลซ้ำ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Exit Sub
            End If
        Next