pepe013
Messages postés42Date d'inscriptionjeudi 21 novembre 2002StatutMembreDernière intervention 2 juin 2006 16 janv. 2003 à 13:24
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