```vb

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.;Data Source=database.mdb"

sql = "SELECT Password FROM Users WHERE UserID=" & Session("UserID")

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn

If Not rs.EOF Then

If rs("Password") = Request.Form("old_password") Then

' 旧密码正确

Else

' 旧密码错误

End If

End If

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

```

以上代码中，"database.mdb"是你的数据库文件，"Users"是你查询的表名，"UserID"和"Password"是表中的字段名。Session("UserID")用于获取当前登录用户的ID，Request.Form("old_password")用于获取用户输入的旧密码。