So basically, did you write this yourself, or did you get the program to write it for you?
Option Compare Database
Private Sub Form_DblClick(Cancel As Integer)
Dim stDocName As String
stDocName = "FRM_AddAdd"
DoCmd.OpenForm stDocName, , , , , , "Edit" & Me.Address1 & "*" &...