有网友问到如何对表中数据加密处理 用来防止其他用户看到具体的数据。
下面的示例对数据表文本字段进行加解密。当然这只是 其中的一种方法，也没有绝对的安全。
详细源码：
Public Function EncRec(strPW As String)
Dim strTmp As String
Dim i As Integer
For i = 1 To Len(strPW)
strTmp = Mid(strPW, i, 1)
If Not Asc(strTmp) Mod 2 = 0 Then
strTmp = Chr(Asc(strTmp) - 1)
Else
strTmp = Chr(Asc(strTmp) + 1)
End If
EncRec = EncRec & strTmp
Next
End Function
查询调用函数：
