Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
[i]Dim stDocName As String[/i]
[i]Dim stLinkCriteria As String[/i]
[i]stDocName = "tblAgeAtRetirementSample"[/i]
[i]DoCmd.OpenForm stDocName, , , stLinkCriteria[/i]
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub