Yazman gereken Kod bu...
DoCmd.GoToRecord , , acNewRec

Bu şekilde ekleyebilirsin..
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Static MouseHook As Object
Set MouseHook = newMouseHook(Me)
End Sub