我是菜鸟,请教一个用户名和口令的问题.

Question

把用户名和口令信息存在一个ACESS数据库的表中,然后用以下过程: 
Sub dl()
Dim db As Database
Dim rs As Recordset
Dim dlstring As String
dim hfyf as boolean
Set db = DBEngine.OpenDatabase("H:\pass")
dlstring = "select pass from passtable where user='" & Form1.text1.Text & "'"
Set rs = db.OpenRecordset(dlstring, dbOpenSnapshot)
If rs.Fields("passfield") = Form1.text2.Text Then
hfyf = True '确认为合法用户
Else
hfyf = False
End If
 在设计PASSTABLE表时把PASS(存放密码)字段掩码设为"PASSWORD",在表中该字段的值为"*"代替,但用的VB6的VISDATA 打开该表时该字段却显示的是真实的密码,这样密码岂不是形同虚设?请问高手有何办法?