vbcrypt function

Dim encryptdecryptkey As String
Dim objCrypt As vbCrypt.EncryptionTools
Set objCrypt = New vbCrypt.EncryptionTools
encryptdecryptkey = "asthashibanaryan"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TCMS.mdb ;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Personnel where Serviceno like '" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
With Authorisedpersonnel.Adodc1.Recordset
.AddNew
!serviceno = Text2.Text
!Name = Text1.Text
!Rank = Combo2.Text
!Trade = Combo4.Text
!Authority = "User"
!Password = objCrypt.Encrypt(encryptdecryptkey, Text7.Text)
.Update
.Requery
End With

this is my code. i want to encrypt my password and save it in database.
its working when .mdb is in access 2000 but is not working when .mdb is in access 97

please help