ADODB.Recordset 3001 Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another

Experts:  I am still attempting to add more than 255 characters to a memo field in Foxpro 6.0.  

I am now getting the message above.  Here is the entire inssert and update query code.
sub AddRecord
set insconn=server.CreateObject("ADODB.Connection")
set insrs=server.CreateObject("ADODB.Recordset")
insconn.Open "DSN=ifis"
InsQry="Insert into change_requestrev1 (track_no, subject, req_date, initiator, eff_date, req_desc, bus_value, progrun, progname, t_details, back_plan, risks, app_date, app_by, recommend, comp_date) values ("
InsQry=InsQry & "" & formatnumber(int(trim(Request.Form("strRecNo"))),0,0,0,0) & ",'"
InsQry=insQry & Replace(trim(Request.Form("subject")), "'", "''") &"',"
InsQry=InsQry & "{^" & cstr(year(cdate(Request.Form("req_date")))) & "-" & cstr(month(cdate(Request.Form("req_date")))) & "-" & cstr(day(cdate(Request.Form "req_date"))))  "},'"
InsQry=insQry & Replace(trim(Request.Form("initiator")), "'", "''") & "',"
InsQry=InsQry & "{^" & cstr(year(cdate(Request.Form("eff_date")))) & "-" & cstr(month(cdate(Request.Form("eff_date")))) & "-" & cstr(day(cdate(Request.Form("eff_date")))) "},'"
if Request.form("eff_date")="" then
InsQry=InsQry & "CTOD('//'),'"
end if

**THIS WILL BREAK UP THE LONG STRING IF MORE THAN 200 CHARACTERS ARE ENTERED**

if len(Request.form("req_desc"))>200 then
Workstring=mid(Request.form("req_desc"), 201, len(Request.form("req_desc")))
req_desc=Replace(Mid(Request.Form("req_desc"), 1, 200), "'", "''")
InsQry=insQry & Replace(Mid(Request.Form("req_desc"), 1, 200), "'", "''") & "','"
else
req_desc=Replace(Request.Form("req_desc"), "'", "''")
InsQry=insQry & Replace(trim(Request.Form("req_desc")), "'", "''") & "','"
end if
InsQry=insQry & Replace(trim(Request.Form("bus_value")), "'", "''") & "',"
      if Request.Form ("progrun")="True" then
            InsQry=InsQry & ".T.,'"
      end if
      if Request.Form ("progrun")="False" then
            InsQry=InsQry & ".F.,'"
      end if
      if Request.Form ("progrun")="" then
            InsQry=InsQry & ".F.,'"
      end if
InsQry=insQry & Replace(trim(Request.Form("progname")), "'", "''") & "','"
InsQry=insQry & Replace(trim(Request.Form("t_details")), "'", "''") & "','"
InsQry=insQry & Replace(trim(Request.Form("back_plan")), "'", "''") & "','"
InsQry=insQry & Replace(trim(Request.Form("risks")), "'", "''") & "',"
InsQry=InsQry & "{^" & cstr(year(cdate(Request.Form("app_date")))) & "-" & cstr(month(cdate(Request.Form("app_date")))) & "-" & cstr(day(cdate(Request.Form("app_date")))) &"},'"
if Request.form("app_date")="" then
InsQry=InsQry & "CTOD('//'),'"
end if
InsQry=insQry & Replace(trim(Request.Form("app_by")), "'", "''")      & "','"
InsQry=insQry & Replace(trim(Request.Form("recommend")), "'", "''") &"',"
InsQry=InsQry & "{^" & cstr(year(cdate(Request.Form("comp_date")))) & "-" & cstr(month(cdate(Request.Form("comp_date")))) & "-" & cstr(day(cdate(Request.Form("comp_date")))) &"})"
if Request.form("comp_date")="" then
InsQry=InsQry & "CTOD('//'))"
end if
Response.Write "<br>"
Insrs.open insconn.Execute(InsQry)

Response.Write insQry
Response.Write "<br>"
Response.Write "This is req_desc " & req_desc & "<br>"
Response.Write "The WorkString is " & WorkString
*** END OF INSERT ***

***UPDATE IF REQ_DESC IS LONGER THAN 200 CHARS ***
if WorkString<>"" then
set connA=server.CreateObject("ADODB.Connection")
set rsA=server.CreateObject("ADODB.Recordset")
connA.Open "DSN=ifis"
if err then
response.Write err.Source
Response.Write err.Number
Response.Write err.Description
End if

sql4="Update change_requestrev1 set req_desc=" & "'" & req_desc + Workstring & "'"
sql4=sql4 & " where change_requestrev1.track_no=" & strTrackNo & ""

I have tried both these methods but still get the same error
'rsA.Open connA.Execute(sql4)
rsA.Open connA.Execute(sql4),,adOpenDynamic, adLockOptimistic

Response.Write sql4
end if
end sub
Any help would be greatly appreciated.
Start Free Trial