Problema: consulta actualizable

Había utilizado el siguiente código para ingresar datos a una BD Access

ahora me genera el mensaje de error: la operación debe usar una consulta
actualizable:

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=c:\inetpub\wwwroot\librovisitas.mdb;"
Set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
Set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
cm.CommandText = "INSERT INTO Libro (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES
(?,?,?,?,?)"
Set objparam = cm.CreateParameter(, 200, , 255, strTB1)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB2)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB3)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB4)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1)
cm.Parameters.Append objparam
cm.Execute

Gracias por sus sugerencias

Luis