要实现用户修改密码功能，如何写代码可以确保用户输入的是自己之前的旧密码？要用VB写

if conn.execute("select isnull((select 密码列 from 表 where 用户名列=用户名),'')")(0)<>用户输入的密码 then
debug.print "Error"
else
debug.print "OK"
end if

Dim ado As ADODB.Recordset
sql = "select * from test where name='" & Text1.Text & "'"
Set ado = New ADODB.Recordset
ado.Open sql, adocnn, 1, 1
If ado.Fields("PS").Value = TEXT2.Text Then MsgBox "不能和以前的密码一致！"本回答被网友采纳