在VB里面如何验证经过MD5加密的数据库密码

在网上找一段VB的 MD5 的编码类，假设类名为 Encode，编码函数：MD5()，数据库路径为: c:\test.mdb ，表名为 user ，字段用户名，密码: username,password,代码如下：

Dim nConn as object
Dim nRs as Object
Dim md5instance as new Encode
Dim SQL As String

set nConn=CreateObject("ADODB.Connection")
set nRs=CreateObject("ADODB.Recordset")

nConn.Open "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=;DBQ=c:\test.mdb"

SQL="select * from user where username=admin and password=" & md5instance.MD5("123456") '123456 是密码

nRs.Open SQL,nConn,3,3

if nRs.Eof then
msgbox "验证失败!"
else
msgbox "验证通协!"
end if

MD5 算法请参考:
http://www.mx68.com/wangluoanquan/2006-03-29/wangluoanquan_79429.shtml

先将密码md5以后相比，相同即通过，代码自己找，网上多的是