What is Err.Description?
----------------------------------------------------------------------------
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Modify and Edit Store Profile"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command16_Click:
Exit Sub
Err_Command16_Click:
MsgBox Err.Description
Resume Exit_Command16_Click
End Sub
----------------------------------------------------------------------------