connexion et insertion d'occurence dans une table Access

Hello

voilà j'ai un problème très très simple mais comme je ny connais rien, bah il m'apparait bien compliké. J'aimerais au moyen de Visual Basic me conecter à une base Access et insérer une occurence dans une des tables de cette base, et ça en ADO. Voilà ce que j'ai testé :

-----------------------------

Dim cxpers As Connection
Dim inssion As Command
Dim rs As Recordset

nom = Text1.Text
prenom = Text2.Text
adr = Text3.Text
cp = Text4.Text
ville = Text5.Text
tel = Text6.Text
fax = Text7.Text

Set cxpers = New Connection
cxpers.Provider = "Microsoft.Jet.oledb.4.0"
cxpres.Open = "C:\bd1.mdb"

Set inssion = New Command
With inssion
.ActiveConnection = cxpers
.CommandText = "INSERT INTO PERSONNE VALUES (1,nom,prenom,adr,cp,ville,tel,fax)"
.Execute
End With

Set rs = inssion.Execute

----------------------------

Voilà, quand j'utilise ça, ça me dit que 'Connection' n'est pas reconnu. Je ne sais même pas si ma requête SQL est bonne. Si peut savoir me dire ce qui cloche, ça me sauverait me vie :)

Merci
Mandrin8

bonjour, ta requête comporte une erreur, voici la syntaxe :
insert into personne(les champs de ta table séparer par des virgules) values(1,nom,prenom,adr,cp,ville,tel,fax)
pour la connection je ne sais pas car moi je fais toujours par des liens odbc.
Voilà, bon courage
Cordialement ludelu

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

Hello

voilà j'ai un problème très très simple mais comme je ny connais rien, bah il m'apparait bien compliké. J'aimerais au moyen de Visual Basic me conecter à une base Access et insérer une occurence dans une des tables de cette base, et ça en ADO. Voilà ce que j'ai testé :

-----------------------------

Dim cxpers As Connection
Dim inssion As Command
Dim rs As Recordset

nom = Text1.Text
prenom = Text2.Text
adr = Text3.Text
cp = Text4.Text
ville = Text5.Text
tel = Text6.Text
fax = Text7.Text

Set cxpers = New Connection
cxpers.Provider = "Microsoft.Jet.oledb.4.0"
cxpres.Open = "C:\bd1.mdb"

Set inssion = New Command
With inssion
.ActiveConnection = cxpers
.CommandText = "INSERT INTO PERSONNE VALUES (1,nom,prenom,adr,cp,ville,tel,fax)"
.Execute
End With

Set rs = inssion.Execute

----------------------------

Voilà, quand j'utilise ça, ça me dit que 'Connection' n'est pas reconnu. Je ne sais même pas si ma requête SQL est bonne. Si peut savoir me dire ce qui cloche, ça me sauverait me vie :)

Merci
Mandrin8