What a nightmare... RSAddrecord.AddNew what is wrong with this..

---------------------------------------------------

Private Function AddRecord()
Dim strConn
Dim strQuery
Dim i
Dim RSAddrecord
' Create our connection string
strConn = GetConnectionString()

strQuery="SELECT * FROM SUGGESTION"

Set RSAddRecord = createObject("ADODB.Recordset")

RSAddRecord.Open strQuery,strConn,3 'open as clientside cursor

RSAddrecord.AddNew
FOR i = 1 to RS.Fields.Count -1
'RS.Fields(i).Value = RS.Fields(i).Name
RSAddrecord.Fields(i).Value = session("field_1(i).Value")
NEXT
RSAddrecord.Update

End Function


How do i check if recordset is read only?

Many thanks

Gary