ผมเคยอ่านการเข้า รหัส Password กรณีเราทำระบบ User Name และ Lock-in โดยเก็บไว้ในตาราง ซึ่งไม่ต้องการให้ผู้เข้าถึงตารางอ่านออก โดยใช้โค้ดดังนี้
Function EncryptDb(strSourceDB As String, _
strDestDB As String) As String
Dim jetEngine As JRO.JetEngine
Dim strSourceConnect As String
Dim strDestConnect As String

' Build connection strings for SourceConnection and
' DestConnection arguments.
strSourceConnect = "Data Source=" & strSourceDB
strDestConnect = "Data Source=" & strDestDB & ";" & _
"Jet OLEDB:Encrypt Database=True"

Set jetEngine = New JRO.JetEngine

' Compact and encrypt the database specified by strSourceDB
' to the name and path specified by strDestDB.
jetEngine.CompactDatabase strSourceConnect, strDestConnect

Set jetEngine = Nothing
End Function
ผมอยากทราบว่า นำไปใช้อย่างไรครับ สงสัยจัง