Problema con ADODB

[muni84]

Hola, muy buenas. Tengo algun problemilla con este codigo:

Dim BDConexion
Set BDConexion=Server.CreateObject("ADODB.Recordset")
With BDConexion
.open "clientes" ,BDConexion, adOpenDynamic, AdLockOptimistic,adCmdTableDirect
.AddNew
.Fields("nombre")=empresa
.Fields("firma")="."
.Fields("direccion")=direccion
.Fields("sidPais")=pais
.Fields("telefono")=telefono
.Fields("fax")=fax
.Fields("email")=email
.Fields("website")=website
.Fields("otraInformacion")=otrainformacion
.Fields("ciudad")=ciudad
.Fields("provincia")=provincia
.Fields("codigoProvincia")=cp
.Fields("NIF")=nif
.update
idCliente= .Fields("pidCliente")
End With

Me da el siguiente error en la linea que marco en rojo:

ADODB.Recordset error '800a0bb9'

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

Alguien que me eche una manilla? Necesito saber el id del elemento insertado en la tabla, y en internet solo he encontrado esta manera, pero no funciona...

[Adler]

Hola

Prueba con esto

Código asp:

SQL = "INSERT INTO tabla (campo) values (valor)"
conn.Execute(SQL)
 
      Set rs = conn.Execute("SELECT @@IDENTITY") 
 
      nuevaId = rs(0) 
 
      rs.Close
 
      Set rs = Nothing
 
Response.write ("Se ha añadido una nueva Id " & nuevaId)
 

Adaptalo a tus necesidades

Suerte