DataAdd Error: Arguments are wrong type or are out of acceptable r

[Jack]

Hi,
I am trying to add a new record to a main page. This page is the processing
page to a form. However, I am getting the following error message:

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.
/gwisnewcon/test/successconfirma tion_ori.asp, line 41

Line 41 is : rs1.Open "Main", 2, 2
Any help for the resolution is appreciated. Thanks

CODE:
<%@ Language = "VBScript"% >
<!-- #include file="adovbs.in c" -->
<%
Response.Buffer = true
'Declare all local variables

dim CN
dim RS
dim rs1
dim strSQL
'set a local variable to my DSN-less connection String
strconn = "DRIVER=Microso ft Access Driver
(*.mdb);DBQ=C:\ _______GWISNEWC ON\greytest.mdb "

'Verify user information in the database
'Create the connection and recorset objects, set the SQL String and parameters
'and open recordset
myDSN="DRIVER={ Microsoft Access Driver (*.mdb)}; "
myDSN=myDSN & "DBQ=C:\_______ GWISNEWCON\grey test.mdb"
set CN=server.creat eobject("ADODB. Connection")
set RS=server.creat eobject("ADODB. Recordset")
set rs1 = server.createob ject("adodb.rec ordset")
CN.Open myDSN

RS.ActiveConnec tion=CN
rs1.ActiveConne ction = CN

strSQL = "SELECT Main.IDNumber, Main.SocialSecu rityNumber, Main.Password,
Main.FirstName, Main.LastName, Main.ColorPrefe rence, Main.FoodPrefer ence,
Main.FinalUpdat e FROM Main where " & _
"SocialSecurity Number ='" & Request.Form("t xtSocialSecurit y") & "'"
RS.Open strSQL
'Response.Write strSQL

'Check for empty recordset which indicates user information was not found
If RS.EOF or RS.BOF Then

'This statement opens the table so we can add a record notice the addnew
'The 2, 2 is how the table is opened there are many ways it can be opened
rs1.Open "Main", 2, 2
'Use the addnew method of the recordset object to add a record
rs.addnew
'Set the table column = to my input text box from my form
rs("SocialSecur ityNumber") = Request.Form("t xtSocialSecurit y")
rs("FirstName" ) = Request.Form("t xtFirstName")
rs("LastName") = Request.Form("t xtLastName")
rs("ColorPrefer ence") = Request.Form("t xtColorPref")
rs("Password") = Request.Form("t xtPassword")
rs("FoodPrefere nce") = Request.Form("t xtFoodPref")
rs("FinalUpdate ") = CInt(Request.Fo rm("chkFinalUpd ate"))
rs.update
Response.Write "<font color = ""teal"">"
Response.Write "Process successful. Your record has been added to our
database."
Response.Write "</font>"

Else
'Dispaly error message
Response.Write "<font color = ""teal"">"
Response.Write "Data exists corresponding to your input social security."
Response.Write "<br>"
Response.Write "Please check your social security number and try again."
Response.Write "</font>"
'set objects to nothing to clear out memory
CN.Close
rs.Close
rs1.Close

set RS= nothing
set rs1= nothing
set conn = nothing
End If

%>

[Ray Costanzo [MVP]]

<normal blurbs here about ADODB.Recordset , ODBC, etc. that you've heard a
thousand times before. :] >

Try bracketing Password as such:

strSQL = "SELECT Main.IDNumber, Main.SocialSecu rityNumber, Main.[Password],
Main.FirstName, Main.LastName, Main.ColorPrefe rence, Main.FoodPrefer ence,
Main.FinalUpdat e FROM Main where " & _
"SocialSecurity Number ='" & Request.Form("t xtSocialSecurit y") & "'"

Ray at home


"Jack" <Ja**@discussio ns.microsoft.co m> wrote in message
news:6B******** *************** ***********@mic rosoft.com...

strSQL = "SELECT Main.IDNumber, Main.SocialSecu rityNumber, Main.Password,
Main.FirstName, Main.LastName, Main.ColorPrefe rence, Main.FoodPrefer ence,
Main.FinalUpdat e FROM Main where " & _
"SocialSecurity Number ='" & Request.Form("t xtSocialSecurit y") & "'"
RS.Open strSQL
'Response.Write strSQL

'Check for empty recordset which indicates user information was not found
If RS.EOF or RS.BOF Then