Кто-нибудь когда-нибудь вешал временный рекордсет АДО на форму? Почему поссле того, как повесили на форму он через интерфейс формы не редактируется?

AccessXP,
Option Compare Database
Option Explicit
Private R As ADODB.Recordset

Private Sub Form_Open(Cancel As Integer)
If ConnectionShort = False Then
Cancel = True
Exit Sub
End If
Set R = New ADODB.Recordset
R.CursorLocation = adUseClient
R.ActiveConnection = Nothing
R.Fields.Append "ID", adInteger, , adFldUpdatable + adFldIsNullable + dFldMayBeNull
R.CursorType = adOpenStatic
R.LockType = adLockOptimistic
R.Open
R.Fields("ID").Properties("Optimize") = True
Set Me.Recordset = R
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
R.Close
Set R = Nothing
End Sub