Insertion de donné dans une bd oracle avec vb

Essaye de te connecter à la base avant de faire ta requête.
Quelle est l'erreur affichée??

Essaye de te connecter à la base avant de faire ta requête.
et la fonction de connection a comme parametre :
*nom du machine ou la base de donnée est existe
*le login
*mot de passe
cette fonction va te faire connecter au serveur aprés tu dois selectionné votre base de donné
ensuite tapez votre requête.

Bonjour a vous tous j'ai un probleme d'insertion de donnée dans ma base de donnée oracle
Voici la synthaxe que j'utilise pour me connecter a ma base de donnée qui est situé sur un serveur :
Dim cn as new ADODB.Connection
Dim cn as new ADODB.Connection
Set cn = New ADODB.Connection
Set rspersonne = New ADODB.Recordset
rspersonne.Open "select * from Personne", cn

cn.Open "PROVIDER = MSDAORA; Data Source =Nom_bd ;User ID = mon_id; Password = Mon_motpass"
Dans ma base j'ai une table personne avec les champs:Code_Pers,Nom_Pers,Preno_Pers et Adresse.
j'utilise la synthaxe suivante pour remplir les champ de ma table:
rspersonne.AddNew
rspersonne.Fields(0) = txtnumcib
rspersonne.Fields(1) = txtnom
rspersonne.Fields(2) = txtprenom
rspersonne.Fields(3) = txtadresse
rspersonne.Update

Mais sa ne fonctionne il ce produit une eurreur a chaque fois.
Comment donc faire pour enregistrez mes donnée dans ma base ?
je ne sais plus quoi faire je suis pourtant bien connecter a la base .

Bonjoru touzack,

Ok si ceci est ton code pourquoi déclare tu 2 fois la même chose
Dim cn as new ADODB.Connection
Dim cn as new ADODB.Connection

Ensuite tu Set ton recordset mais tu ne la jamais dimensioner

Dim rspersonne as new ADODB.Recordset

ensuite tu dois spécifier quel parametre tu veux du textbox

rspersonne.AddNew
rspersonne.Fields(0) = txtnumcib.text
rspersonne.Fields(1) = txtnom.text
rspersonne.Fields(2) = txtprenom.text
rspersonne.Fields(3) = txtadresse.text
rspersonne.Update

Aussi si tu nous donnais le message d'Erreur que tu recois ca pourrais aider