[VBA] Access: openform con query

[LeleFT]

Private Sub Comando2_Click()

    Dim stDocName As String
    Dim prod As String
    CodProd.SetFocus
     prod = CodProd.Text
    MsgBox "Valore stringa:" & CodProd.Text, vbInformation, Test
   
    DoCmd.OpenForm "Cella", acNormal, "Archivio2", " Prodotto.[Codice Prodotto] = " &  prod , acFormEdit, acWindowNormal
    
End Sub

Ciao.