SqlClientUniqueValueValidator Control

SqlClientUniqueValueValidator.vb:
Imports System.Data.SqlClient
Namespace NathanSokalski
	<System.Drawing.ToolboxBitmap(GetType(ToolboxIcons), "SqlClientUniqueValueValidator.bmp"), _
	System.Web.UI.ToolboxData("<{0}:SqlClientUniqueValueValidator runat=""server""/>")> _
	Public Class SqlClientUniqueValueValidator : Inherits UniqueValueValidatorBase
		Public Overrides Function DoValidation(ByVal value As String) As Boolean
			Dim myconnection As New SqlConnection(Me.ConnectionString)
			Dim cmdunique As New SqlCommand(Me.ValidationSql(value), myconnection)
			Dim uniquereader As SqlDataReader
			myconnection.Open()
			uniquereader = cmdunique.ExecuteReader()
			Return Not uniquereader.HasRows()
			myconnection.Close()
		End Function

		Public Overrides Function FormatDate(ByVal value As Date) As String
			Return String.Concat("'", value.ToShortDateString(), "'")
		End Function

		Public Overrides Function FormatTime(ByVal value As Date) As String
			Return value.ToString("'H:mm:ss.fffffff'")
		End Function

		Public Overrides Function FormatDateTime(ByVal value As Date) As String
			Return String.Concat("'", value.ToShortDateString(), value.ToString(" H:mm:ss.fffffff'"))
		End Function
	End Class
End Namespace