adodc problème

Bonjour j'execute se code mais j'ai l'erreur :

Object or provider is not capable of performing requested operation.


Private Sub Form2_Load()
Dim cn As ADODB.Connection
Dim rcs As ADODB.Recordset
Set cn = Form1.Adodc1.Recordset.ActiveConnection
Set rcs = cn.Execute("Select * From Table1")
Set Adodc2.Recordset = rcs
me.adodc2.addnew
End Sub

Merci pour votre aide !

Le Néophyte

Bonjour,

Normale ton recordset est en lecture seule par défaut. POur simplifier ta syntaxe:

Dim rcs as new ADODB.Recordset
rcs.Open "Select * from Table1", cn, adOpenStatic, adLockOptimistic.

A+