[Access - VB] težava

Imam problem z VB skripto v Accessu. In sicer bi rad, da mi ob pritisku na gump pošlje poročilo na mail, ki ga dobi iz poizvedbe. Težava je v tem, ker ima poizvedba parameter, ki se "črpa" iz vnosnega obrazca in mi zato Access ob pritisku na gumb napiše error: "Too few parameters. Expected 1." Na netu že 3 dni nonstop iščem rešitev za ta problem, zato vas prosim, če mi lahko pomagate. Zasledil sem, da je to možno rešiti z določitvijo parametra v skripti. Nekaj sem že dodal skripti, ampak mi zadeva še vedno ne deluje.

SKRIPTA:
Dim rs As Recordset
Dim vRecipientList As String
Dim vMsg As String
Dim Qdf As QueryDef
Dim prm As Parameter

Set Qdf = CurrentDb.OpenRecordset("SELECT MailZap FROM ProsnjeStefan")

For Each prm In Qdf.Parameters
prm.Value = Eval([Forms]![Odprte prošnje Štefan]![Mailzap])
Next prm
Set Rst = Qdf.OpenRecordset

DoCmd.SendObject Report, "Odgovor na prošnjo Štefan", acFormatPDF, vRecipientList, , , "Subject", vMsg

If rs.RecordCount > 0 Then
rs.MoveFirst
Do
vRecipientList = vRecipientList & rs!EmailAddress & ";"
rs.MoveNext
Loop Until rs.EOF
vMsg = "Hello" & vbCrLf & vbCrLf & _
"Message text" & vbCrLf & vbCrLf & _
"Kind regards," & vbCrLf & vbCrLf & vbCrLf & "Signoff"
Else
MsgBox "No contacts."
End If


Hvala za pomoč!

Rezultat poizvedbe je en zapis (ID , ime, MailZap, opis, datum), saj se ID jemlje iz odprtega obrazca za vnos. PRIMER: v obrazcu "listaš" med zapisi in se odločiš da boš enega poslal. Ko pritisneš na gumb se naredi poročilo na podlagi te poizvedbe, ki vsebuje samo en zapis in ne večih. In tega mora ta gumb poslati na mail, ki je naveden v poizvedbi.

Preberi vrednost polja manualno in ostale podatke črpaj iz DB