Salut,
Il te faut créer un object recordset aussi...
Dim RstADO As New ADODB.Recordset
Sql = "SELECT * FROM Interlocuteur"
Paramètre recordset et exécution requête
RstAdo.CursorLocation = adUseClient
RstAdo.Open Sql, Cn, adOpenDynamic, adLockPessimistic
A+
Exploreur