Custom membership provider - help needed

[Fendi Baba]

I need to implement a login system using Asp.net 2.0 login
module( membership provider) with password being case insensitive. I
wrote a class Accessmembershi pprovider.vb and below is my code.
Somehow, it does seem that the validate users logic is picking this
new code up. Can anyone tell me what I might have missed out?

Regards
=============== =============== =============== =====>
Imports Microsoft.Visua lBasic
Imports System.Data
Imports System.Web.Conf iguration
Imports System.Data.Sql Client

Public Class AccessMembershi pProvider
Inherits MembershipProvi der

Public Overrides Sub Initialize(ByVa l name As String, ByVal config
As System.Collecti ons.Specialized .NameValueColle ction)

End Sub

Public Overrides Property ApplicationName () As String
Get
End Get
Set(ByVal value As String)
End Set
End Property

Public Overrides Function ChangePassword( ByVal username As String,
ByVal oldPassword As String, ByVal newPassword As String) As Boolean

End Function

Public Overrides Function ChangePasswordQ uestionAndAnswe r(ByVal
username As String, ByVal password As String, ByVal
newPasswordQues tion As String, ByVal newPasswordAnsw er As String) As
Boolean

End Function

Public Overrides Function CreateUser(ByVa l username As String,
ByVal password As String, ByVal email As String, ByVal
passwordQuestio n As String, ByVal passwordAnswer As String, ByVal
isApproved As Boolean, ByVal providerUserKey As Object, ByRef status
As System.Web.Secu rity.Membership CreateStatus) As
System.Web.Secu rity.Membership User

End Function

Public Overrides Function DeleteUser(ByVa l username As String,
ByVal deleteAllRelate dData As Boolean) As Boolean

End Function

Public Overrides ReadOnly Property EnablePasswordR eset() As
Boolean
Get

End Get
End Property

Public Overrides ReadOnly Property EnablePasswordR etrieval() As
Boolean
Get

End Get
End Property

Public Overrides Function FindUsersByEmai l(ByVal emailToMatch As
String, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef
totalRecords As Integer) As
System.Web.Secu rity.Membership UserCollection

End Function

Public Overrides Function FindUsersByName (ByVal usernameToMatch As
String, ByVal pageIndex As Integer, ByVal pageSize As Integer, ByRef
totalRecords As Integer) As
System.Web.Secu rity.Membership UserCollection

End Function

Public Overrides Function GetAllUsers(ByV al pageIndex As Integer,
ByVal pageSize As Integer, ByRef totalRecords As Integer) As
System.Web.Secu rity.Membership UserCollection

End Function

Public Overrides Function GetNumberOfUser sOnline() As Integer

End Function

Public Overrides Function GetPassword(ByV al username As String,
ByVal answer As String) As String

End Function

Public Overloads Overrides Function GetUser(ByVal username As
String, ByVal userIsOnline As Boolean) As
System.Web.Secu rity.Membership User

End Function

Public Overloads Overrides Function GetUser(ByVal providerUserKey
As Object, ByVal userIsOnline As Boolean) As
System.Web.Secu rity.Membership User

End Function

Public Overrides Function GetUserNameByEm ail(ByVal email As
String) As String

End Function

Public Overrides ReadOnly Property MaxInvalidPassw ordAttempts() As
Integer
Get

End Get
End Property

Public Overrides ReadOnly Property
MinRequiredNonA lphanumericChar acters() As Integer
Get

End Get
End Property

Public Overrides ReadOnly Property MinRequiredPass wordLength() As
Integer
Get

End Get
End Property

Public Overrides ReadOnly Property PasswordAttempt Window() As
Integer
Get

End Get
End Property

Public Overrides ReadOnly Property PasswordFormat( ) As
System.Web.Secu rity.Membership PasswordFormat
Get

End Get
End Property

Public Overrides ReadOnly Property
PasswordStrengt hRegularExpress ion() As String
Get

End Get
End Property

Public Overrides ReadOnly Property RequiresQuestio nAndAnswer() As
Boolean
Get

End Get
End Property

Public Overrides ReadOnly Property RequiresUniqueE mail() As
Boolean
Get

End Get
End Property

Public Overrides Function ResetPassword(B yVal username As String,
ByVal answer As String) As String

End Function

Public Overrides Function UnlockUser(ByVa l userName As String) As
Boolean

End Function

Public Overrides Sub UpdateUser(ByVa l user As
System.Web.Secu rity.Membership User)

End Sub

Public Overrides Function ValidateUser(By Val username As String,
ByVal password As String) As Boolean
Dim strconnectionSt ring As String =
WebConfiguratio nManager.Connec tionStrings("Lo calSqlServer"). ConnectionStrin g
Dim con As New SqlConnection(s trconnectionStr ing)

Try
con.Open()
Dim sql As String = "Select * From Membership WHERE " & _
"username=@user name AND password=@passw ord"
Dim comm As New SqlCommand(sql, con)
password = password.ToUppe r()
comm.Parameters .AddWithValue(" @username", username)
comm.Parameters .AddWithValue(" @password", password)
Dim reader As SqlDataReader = comm.ExecuteRea der
If reader.HasRows Then
Return True
Else
Return False
End If
con.Close()

Catch ex As Exception
Console.Write(e x.ToString)
Return False
End Try
End Function
End Class