[سعود]

فكرت بطريقة مخصصة اغير فيها كلمة المرور قبل حفظها فاجتهدت حتى وجدت حل قد لا يكون مرضيا بمافيه الكفاية لكن المحاولة جيدة
هذه هي الدالة:

كود :

Function en(ByVal tp As String) As String
        Dim all As String = ""
        Dim txt As String = tp.Trim
        Dim mykey() As String = "1a2b3c4d5#e6f7g8h9i#10j11k12l#13m14n15o#16p17q18r1#9s20t2#1u22v23#w24x25y26#z".Split("#")
        Dim i As Integer = 0
        For Each t In txt
            all &= t & mykey(i)
            i += 1
        Next
        Return all
    End Function

ولاضافة كلمة المرور مشفرة

كود :

cm.Parameters.AddWithValue("@tpass", OleDbType.VarChar).Value = en(tpass.Text).Trim

وللاستعلام:

كود :

& "' and tpass='" & en(tpass.Text) & "'