Heres my code:
Code:
<%
If Request.Form("Submit")="Submit" then

  Dim adoCon 		'Database Connection Variable
  Dim strCon		'Holds the Database driver and the path and name of the database
  Dim rsCheckUser 		'Database Recordset Variable
  Dim strAccessDB 	'Holds the Access Database Name
  Dim strSQL 		'Database query sring
  Dim strUserName 	'Holds the user name

  strUserName = Request.Form("Username")

  strAccessDB = "news"

  Set adoCon = Server.CreateObject("ADODB.Connection")
			 
  strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=********; DBQ=" & Server.MapPath(strAccessDB)

  adoCon.Open strCon

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

  strSQL = "SELECT tblUsers.* FROM tblUsers WHERE tblUsers.Username ='" & strUserName & "'"

  rsCheckUser.Open strSQL, strCon

If rsCheckUser("Level") = "2" THEN
  If Request.Form("txtYourPW") = rsCheckUser("Password") THEN

Dim rsAddComments		
Dim User
Dim Username

User = Request.Form("txtUserName")

Username = Request.QueryString("UN")			

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

strAccessDB = "news"

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=n1i2c3k4; DBQ=" & Server.MapPath(strAccessDB)

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

strSQL = "SELECT tblNews.* FROM tblNews;"

rsAddUsers.CursorType = 2

rsAddUsers.LockType = 3

rsAddUsers.Open strSQL, adoCon

rsAddUsers.AddNew

rsAddUsers.Fields("User_ID") = Request.Form("User_ID")
rsAddUsers.Fields("Title") = Request.Form("txtNewsTitle")
rsAddUsers.Fields("Name") = Request.Form("txtUserAlias")
rsAddUsers.Fields("Email") = Request.Form("txtUserEmail")
rsAddUsers.Fields("Body") = Request.Form("txtNewsBody")
rsAddUsers.Fields("Date") = Request.Form("txtNewsDate")

rsAddUsers.Update

rsAddUsers.Close
Set rsAddUsers = Nothing
Set adoCon = Nothing

Response.Redirect("success.asp?UN=" & Username & "&SN=" & User & "&ID=2")

Else

Response.Redirect("no_access.asp?UN=" & strUserName & "&ID=3")
    End If
Else

Response.Redirect("no_access.asp?UN=" & strUserName & "&ID=2")

  End If
End If


If Request.QueryString = "" THEN
  Response.Redirect("no_access.asp?ID=1")
End If

'Dimension variables
Dim adoConect
Dim rs
Dim strSQL2
Dim lngRecordNUM
lngRecordNUM = Request.QueryString("UN")
Set adoConect = Server.CreateObject("ADODB.Connection")
adoConect.Open "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=n1i2c3k4; DBQ=" & Server.MapPath("news.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL2 = "SELECT tblUsers.* FROM tblUsers WHERE Username ='" & lngRecordNUM & "'"
rs.Open strSQL2, adoConect
%>
<html>
<head>
<title>Add News</title>
<link rel="stylesheet" href="style.css" type="text/css">
<script language="JavaScript" src="text.js"></script>
</head>
<body>

<!-- #Include File="menu.asp" -->

<table width="70%" align="center">
  <tr align="center">
    <td colspan="2"><font size="5"><b>Add News</td>
  </tr>

  <tr valign="top">
    <td>
<div align="center">
<form action="" method="post" name="addnews">

<table cellpadding="0" cellspacing="0" border="0" bgcolor="#999999">
  <tr>
    <td>
<table border="0" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#FFFFFF">
    <td align="Right">
        <font face="Verdana,Arial,Helvetica" size="1"><b>Password:</b></font>
        <input type="password" name="txtYourPW" size="20" maxlength="20" class="password">
        <br><br><font face="Verdana,Arial,Helvetica" size="1"><b>Subject/Title:</b></font>
        <input type="text" name="txtNewsTitle" size="20" maxlength="75" class="textbox">
        <br><br><font face="verdana,Arial,Helvetica" size="1"><b>Posted On:</b></font>
        <input type="text" name="txtNewsDate" maxlength="20" size="20" value="<% =Date %>" class="textbox">
        <br><br><img src="smilies/icon_smile.gif" border="0" alt="Smile [:)]" title="Smile [:)]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[:)]'">&nbsp;&nbsp;<img src="smilies/icon_sad.gif" border="0" alt="Sad [:(]" title="Sad [:(]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[:(]'">&nbsp;&nbsp;<img src="smilies/icon_sick.gif" border="0" alt="Sick [sick]" title="Sick [sick]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[sick]'">&nbsp;&nbsp;<img src="smilies/icon_shifty.gif" border="0" alt="Shifty [shifty]" title="Shifty [shifty]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[shifty]'">&nbsp;&nbsp;<img src="smilies/icon_laugh.gif" border="0" alt="Laugh [:D]" title="Laugh [:D]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[:D]'">&nbsp;&nbsp;<img src="smilies/icon_angry.gif" border="0" alt="Angry [:@]" title="Angry [:@]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[:@]'">&nbsp;&nbsp;<img src="smilies/icon_exclaim.gif" border="0" alt="Exclaim [!]" title="Exclaim [!]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[!]'">&nbsp;&nbsp;<img src="smilies/icon_blink.gif" border="0" alt="Blink [blink]" title="Blink [blink]" ONCLICK="document.addnews.txtNewsBody.value=document.addnews.txtNewsBody.value+'[blink]'">        &nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp<INPUT onclick=boldThis() type=button value=B class="button">&nbsp&nbsp<INPUT onclick=italiciseThis() type=button value=I class="button">&nbsp&nbsp<INPUT onclick=underlineThis() type=button value=U class="button">&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
        <br><textarea name="txtNewsBody" rows="15" cols="80" class="textbox"></textarea>
        <br><br><font face="verdana,Arial,Helvetica" size="1"><b>Posted By:</b></font>
        <input type="text" name="txtUserAlias" maxlength="75" size="20" value="<% =rs("Name") %>" class="textbox">
        <br><br><font face="verdana,Arial,Helvetica" size="1"><b>email:</b></font>
        <input type="text" name="txtUserEmail" maxlength="75" size="20" value="<% =rs("Email") %>" class="textbox">
        <br><div align="center">
<input type="hidden" name="Username" value="<% =Request.QueryString("UN") %>">
<input type="hidden" name="User_ID" value="<% =Request.QueryString("ID") %>">
<br><input type="submit" name="submit" value="Submit" class="button">
<input type="reset" name="reset" value="Clear" class="button">
</div>
    </td>
  </tr>
</table>
    </td>
  </tr>
</table>
</form>
</div>
    </td>
  </tr>
</table>
</html>
It says:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/gfgames/db/news/add_news.asp, line 56

When I try to submit it. line 56 is where it first starts adding to the db.

Here are the fields in my db:

ID_no - Autonumber
User_ID - Text
Name - Text
Title - Text
Body - Memo
Date - Text
Email - Text

I know it is recieving the querystrings its just it always givs me that error and I don't know why.

PLEASE HELP