[2005] Encrypt and Decrypt login

[aerialz666]

Hi this is where i declare my encryption and decryption in my login form..

  Dim strSQL As String = "SELECT * FROM UserLoginProfile WHERE [Username] = '" & txtUserName.Text & "' AND [Password] = '" & EncDec(txtPassword.Text) & "'"

now this is my public function for the EncDec

Public Function EncDec(ByVal strPassword As String) As String
        Dim Counter As Integer

        EncDec = ""

        For Counter = 1 To strPassword.Length
            EncDec = EncDec & Chr(Asc(Mid(strPassword, Counter, 1)) + 70)
        Next

        Return EncDec

    End Function

it used to work on our VB.Net 03 program so i used in in our other project using VB 05 language.. any help converting / fixing? thanks