UPDATE information in access problem

'Check if current password is correct
 If currentpassword = password Then
  set passconn = server.CreateObject ("ADODB.Connection")  
  passconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("accounts.mdb")
  passSQL = "UPDATE userlist SET password = '" & newcodedpassword & "' where checkname='"& checkname &"'"
    passconn.Execute(passSQL)
    set passSQL=nothing
   'Delete the cookies and sessions
    Response.Cookies("rememberbusiness").Expires = date() -1
  Session("username") = ""
  Session("loggedin") = false