__________________________
Private Sub HURtrntoMainCmd6_Click()
On Error GoTo Err_HURtrntoMainCmd6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "HUMainFrm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_HURtrntoMainCmd6_Click:
DoCmd.Close...