Nao insere do dados

Grande especialistas estou com problemas neste codigo que meu chefe me enviou pra ser acabado mais ele esta completo so que nao funciona, gostaria se possivel que os especialista me ajudem.Desde ja agradeço...====================================================codigo:<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, comentarionome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")comentario = Request.Form("comentario")Set objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"',"username","password"strQuery = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Then response.redirect "sucesso.asp" else response.write "erro ao inserir dados"end if%>