Form opening with data instead of blank

[emk]

Here's the code for the add/edit button for the on click event procedure from the main menu.

[VBA]Private Sub Res_AddEdit_Button_Click()
On Error GoTo Err_Details_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Sales Residential"
DoCmd.OpenForm stDocName
Exit_Details_Click:
Exit Sub
Err_Details_Click:
If Err.Number = 2501 Then Resume Next
MsgBox Err.Description
Resume Exit_Details_Click
End Sub[/VBA]