Visual Basic - Error 3251 URGENTE

Tengo el siguiente codigo sin ningún objeto:

Dim conexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\soto\telefonos\ConsumTelf\vb\LLAMADAS2.mdb"
Set rs = conexion.Execute("SELECT * FROM TLLAMADAS;")
rs.AddNew
rs.Fields(1).Value = 4
rs.Update

Al ejecutarlo me da error 3251, la operación solicitada por la aplicación no es admitida por el proveedor.
Me señala para depurar la instrucción de rs.addnew

Que he hecho mal?

Prueba con este codigo:

Dim conexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conexion = New ADODB.Connection
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data d:\soto\telefonos\ConsumTelf\vb\LLAMADAS2.mdb;Persist Security Info=False"
conexion.Open
Set MiRecordset = New ADODB.Recordset

rs.Open "SELECT * FROM Tllamadas", conexion, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields(1).Value = 4
rs.Update

Muchisimas gracias. He probado este codigo y me da el siguiente error en la linea de conexion.open: No se pudo encontrar el archivo ISAM instalable.

Que quiere decir esto?

Muchas gracias por la ayuda y ya siento molestar

no estoy seguro, pero creo que tiene que ver con algun conflicto con alguna dll, muy posiblemente MSVBVM60.dll. Quizas no tengas instalada la versión correcta.

el mensaje "no se pudo encontrar el archivo ISAM
instalable" se debe a que le faltan los driver necesarios
para realizar la importacion (de texto, de hoja excel, de
ODBC, etc.) esto se soluciona volviendo a instalar el
Access marcando todas las opciones (se soluciona tambien
marcando solamente la parte correspondiente a Acceso a
Datos, pero mejor marcamos todo de una vez no?)

mira el problema es el tipo de recordset que abris, ese tipo de recordset que te da en el execute es de solo lectura, crear la conexion, y abrir el recordset desde ese objeto y no como resultado de la consulta enviada a la base ej.
db.open "Conexion a la base"
db.begintrans
rs.open "Select * From Tabla where Argumentos",Db, adOpenDynamic, adLockOptimistic, adCmdText
with rs
.addnew
!nombrescampos=valorescampos
.update
end with
db.commitrans
db.close
set db=nothing
rs.close
set rs=nothing
espero que sirva de algo.
perdon por la respuesta anterior pero me enganche viendo lo de la isam, cuando mire el codigo me di cuenta que era eso.
Saludos

Muchísimas gracias. Al final el problema era esto último.
Salu2