שליחה מ-ASP למסד נתונים לא עובד!

אני רוצה להוסיף לתוך מסד הנתונים.
הקוד הוא:
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Response.ContentType = "text/xml"

Path = Server.mappath("db.mdb")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Path

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

rs.Open "select * from Msgs where 1=0", Conn

RS.AddNew "IPAddress", "Newuser"
RS.Update  
RS.Fields("User").Value = "a"
RS.Update  
rs.Close
Set rs = Nothing
%>
השרת מציג הודעה: מספר 500
מה לא בסדר עם הקוד הזה?