OleDbUniqueValueValidator Control

OleDbUniqueValueValidator.vb:
Imports System.Data.OleDb
Namespace NathanSokalski
	<System.Drawing.ToolboxBitmap(GetType(ToolboxIcons), "OleDbUniqueValueValidator.bmp"), _
	System.Web.UI.ToolboxData("<{0}:OleDbUniqueValueValidator runat=""server""/>")> _
	Public Class OleDbUniqueValueValidator : Inherits UniqueValueValidatorBase
		Public Overrides Function DoValidation(ByVal value As String) As Boolean
			Dim myconnection As New OleDbConnection(Me.ConnectionString)
			Dim cmdunique As New OleDbCommand(Me.ValidationSql(value), myconnection)
			Dim uniquereader As OleDbDataReader
			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