ADODB.Recordset erreur '800a0cb3' Le fournisseur ou l'objet ne prend pas en charge cette opération.

Salut à tous!!!
Encore des problèmes...
J'ai un recordset qui ajoute un nouvel agent mais il m****
J'ai lu qu'il fallait inclure le fichier adovbs.inc en l'ayant auparavant copier à la racine du repertoire du site... mais rien n'y fait
Bref, voilà un extrait du code :

'***Ouverture d'une connexion à la base***
Set CreaCptLink = Server.CreateObject("ADODB.Connection")CreaCptLink.Open "tableau.dns"
'***Création de l'instruction SQL et du Recordset***
ReqCreaCpt = "SELECT * from agent"
set RsCreaCpt = Server.CreateObject("ADODB.Recordset")
RsCreaCpt.Open ReqCreaCpt, CreaCptLink
'***Vérification et enregistrement***
if Existe = 0 and StrAgent <> "" and StrMdp1 = StrMdp2 and StrMdp1 <> "" then
RsCreaCpt.AddNew
RsCreaCpt("nomagent") = StrAgent
RsCreaCpt("mdpagent") = StrMdp1
RsCreaCpt("numtype") = Notype
RsCreaCpt.Update
Response.Write "Compte enregistré"
.........
end if

Ca me dit (la ligne correspond a celle en gras): ADODB.Recordset erreur '800a0cb3'
Le fournisseur ou l'objet ne prend pas en charge cette opération.
Par avance merci de m'aider, je comprends pas c'est la première fois que j'ai ce problème. Erreur de syntaxe !?!?
@+

Je rajoute un petit truc mon identifiant de la table agent et en numero auto donc pas besoin de l'incrementer non???

-------------------------------
Réponse au message :
-------------------------------

> Salut à tous!!!
> Encore des problèmes...
> J'ai un recordset qui ajoute un nouvel agent mais il m****
> J'ai lu qu'il fallait inclure le fichier adovbs.inc en l'ayant auparavant copier à la racine du repertoire du site... mais rien n'y fait
> Bref, voilà un extrait du code :
>
> '***Ouverture d'une connexion à la base***
> Set CreaCptLink = Server.CreateObject("ADODB.Connection")CreaCptLink.Open "tableau.dns"
> '***Création de l'instruction SQL et du Recordset***
> ReqCreaCpt = "SELECT * from agent"
> set RsCreaCpt = Server.CreateObject("ADODB.Recordset")
> RsCreaCpt.Open ReqCreaCpt, CreaCptLink
> '***Vérification et enregistrement***
> if Existe = 0 and StrAgent <> "" and StrMdp1 = StrMdp2 and StrMdp1 <> "" then
> RsCreaCpt.AddNew
> RsCreaCpt("nomagent") = StrAgent
> RsCreaCpt("mdpagent") = StrMdp1
> RsCreaCpt("numtype") = Notype
> RsCreaCpt.Update
> Response.Write "Compte enregistré"
> .........
> end if
>
> Ca me dit (la ligne correspond a celle en gras): ADODB.Recordset erreur '800a0cb3'
> Le fournisseur ou l'objet ne prend pas en charge cette opération.
> Par avance merci de m'aider, je comprends pas c'est la première fois que j'ai ce problème. Erreur de syntaxe !?!?
> @+
>
>

ayééééééééé, yé trouvé !!!!!!!!
J'avais oublié ca :
RsCreaCpt.Open ReqCreaCpt, CreaCptLink, 3, 3

A ce que j'ai compris ca permet l'autorisation en écriture, mais l'autre "3" je ne sais pas....
@+