Error on double click for adding values

[Ladi]

Dear all,

With the following I tried to enter values on a table
trying to open an existing form for new values which will be used on the
current form:

Private Sub EntiID_DblClick(Cancel As Integer)
DoCmd.OpenForm "Drejtorite"
If Not IsNull(Me.EntiID) Then
DoCmd.GoToRecord acDataForm, "Drejtorite", acGoTo, Me.EntiID
Form_Drejtorite.Text7 = "Korigjim i Enteve"
Else
DoCmd.GoToRecord acDataForm, "Drejtorite", acNewRec
Form_Drejtorite.Text7 = "Hedhje e Entit te ri"
End If
End Sub

but it gives the following error:

Run-time error: '2105'
You con't go to the specific record!

Options: End, Debug, Help

Please tell me how to do that!