Мне нужно реализовать следующее. При входе в форму, автоматом должна добавляться новая запись в таблицу на основе которой сделана эта форма.

Private Sub AddOneNewRecordkreddog()

Dim rst As Recordset
On Error GoTo AddOneNewRecordErr

Set rst = CurrentDb.OpenRecordset("tbl_kreddog", dbOpenDynaset)
With rst
.AddNew

!nomdog = Me.pole23.Value
!datazakl = Me.pole25.Value
!datapog = Me.pole27.Value
!summakr = Me.pole29.Value
!valuta = Me.pole31.Value
.Update
End With

AddOneNewRecordEnd:
On Error Resume Next
rst.Close
Set rst = Nothing
Exit Sub

AddOneNewRecordErr:
MsgBox "Ïðîöåäóðà [Îáíîâëåíèÿ çàïèñåé] ïðèâåëà ê îøèáêå:" & vbCrLf & _
Err.Description & vbCrLf & " Err#" & Err.number, vbCritical
Resume AddOneNewRecordEnd
End Sub