Problema con un addnew.

[chelejuan2]

Buenas gente, tengo un problema con un foro que me baje, me da siempre error al hacer un addnew ... y no se por que.

El codigo seria este :

strSQL = "SELECT TOP 1 " & strDbTable & "PMMessage.* FROM " & strDbTable & "PMMessage WHERE " & strDbTable & "PMMessage.Author_ID = " & lngToUserID & " ORDER BY " & strDbTable & "PMMessage.PM_Message_Date DESC;"

rsCommon.CursorType = 3
rsCommon.LockType = 3
rsCommon.Open strSQL, adoCon
rsCommon.AddNew
rsCommon.Fields("Author_ID") = lngToUserID
rsCommon.Fields("From_ID") = lngLoggedInUserID
rsCommon.Update

Y me da este error en el rsCommon.AddNew

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/pm_post_message.asp, line 306

¿Sabeis que puede ser?

Hacer select puedo perfectamente, y los insert con insert into tambien pero cuando hago un addnew me falla siempre ... ¿alguna idea?

Gracias anticipadas.

Ah felicidades por el foro muy guapo :)