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...