"Aktuellt Recordset kan inte uppdateras. Det kan bero på en begränsning av providern eller den valda låstypen.", står det och så här har jag skrivit:

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tblCal", GetCon
rs.AddNew

/ Peter Larsson

Såhär borde funger, du måste en låstyp som stöder uppdatering av recordsetet:

<code>
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tblCal", GetCon, adOpenStatic, adLockOptimistic
rs.AddNew
</code>

/Johan

<code>

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tblCal", GetCon, adOpenKeyset, adLockOptimistic
rs.AddNew


</code>

Det är väl inte alla OLEDB-Providers som stödjer uppdaterbara recordsets med statiska cursor. ;O)