URGENT INSERTION

pépé

Je n'arrive pas a transferer mes contacts qui sont dans ma base access vers mes contacts d 'outlook.

AIDEZ MOI

OU EST LE BUG ???

requete_outlook = " select * from contacts "

Dim rs2 As ADODB.Recordset
Dim CoADO2 As ADODB.Command

Set CoADO2 = New ADODB.Command
CoADO2.CommandText = requete_outlook
CoADO2.CommandType = adCmdText
Set CoADO2.ActiveConnection = ct
Set rs2 = New ADODB.Recordset
rs2.CursorType = adOpenDynamic

rs2.Open CoADO2
rs2.AddNew
rs2!nom = " test "
rs2.Update
rs2.Close


L'insertio ne marche pas !!!