Private Sub New_Click() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("") rs.AddNew rs![ ] = Me._ rs![] = Me. rs.Update MsgBox (" !") End Sub
http://www.sql.ru/forum/1258739/recordset-i-pole-so-spiskom