Private Sub Comando18_Click()
On Error GoTo Err_Comando18_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "signore seguite"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando18_Click:
    Exit Sub

Err_Comando18_Click:
    MsgBox Err.Description
    Resume Exit_Comando18_Click
    
End Sub