Let's give this a try for starters:
Private Sub btn_add_comment_Click()
On Error GoTo Err_cmdOpen_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "cmb_select_project"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdOpen_Click:
Exit Sub...