Kan ikke bruge db.openrecordset

Jeg har lavet et lille program som jeg bruger til at holde styr på hvem i vores organisation der har hvilke programmer, og når der så kommer opdatering så kan jeg lave en automatisk mail med vedhæftning af det rigtige program til de medlemmer der står på listen.

Det nedenstående forbereder data til mail og opretter til sidst mailen med emailadresser, programnavn og vedhæftet program.

Det eneste jeg mangler er at lave maillisten, og det gør jeg ved at lave en db.openrecordset(QUERY) og så gå hver record igennem.

Den Query er helt ren, og indeholder kun 1 felt, men den er lavet på baggrund af en anden Query med masser af kriterier, hvoraf nogle er valgt af brugeren.

Problemet er bare at jeg aldrig kommer så langt :) Mit program fejler ved Set rs=d.OpenRecordset("F_brugernavne", dbOpenDynaset), hvor jeg får fejlen "run-time error '3061' Der er for få parametre. Der var ventet 1.

Jeg har været rigtig mange steder på nettet, og det eneste jeg har kunne finde er at den fejl kan opstå hvis man bruger en Query med masser af kriterier som basis. Det gør jeg ikke, da jeg jo bruger en Query som kun har 1 felt(brugernavnene), uden nogen kriterier.

Er der nogen der kan guide mig til en løsning ?

Dim mailliste As String
Dim appnavn As String
Dim sti As String
Dim oOutlook As Object
Dim oEmailItem As Object
Const olmailitem = 0
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim x As Integer
Dim y As Integer

mailliste = ""
'Check om der er nogen i den valgte distributionsliste
Set db = CurrentDb()
Set rs = db.OpenRecordset("F_brugernavne", dbOpenDynaset)
'Set rs = db.OpenRecordset("F_distributionsliste", dbOpenDynaset)
If rs.RecordCount = 0 Then
    p = MsgBox("Der ikke nogen i den valgte distributionsliste, vælg en anden", vbOKOnly)
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Exit Sub
Else
    rs.MoveFirst
    With rs
    Do While Not .EOF
        mailliste = mailliste + .Fields(brugernavn)& "@frederiksberg.dk;"
        .MoveNext
    Loop
    End With
    Set rs = Nothing
    Set db = Nothing
End If
'slut

'hent sti
sti = Forms!FM_vedligehold_distributionslister!FM_distributionsliste!sti
'hent appnavn
appnavn = DLookup("[navn]", "DT_app", "[IDapp] = " & Forms!FM_vedligehold_distributionslister!appid)
'slut

Set oOutlook = CreateObject("Outlook.Application")
Set oEmailItem = oOutlook.createitem(olmailitem)
 
With oEmailItem
    .Attachments.Add sti
    .to = mailliste
    .Subject = "Opdatering til " & appnavn
    .Body = "her er en opdatering til " & appnavn & vbCrLf & vbCrLf & "Husk at trække den vedhæftede fil ud på skrivebordet og sig jatak til at overskrive"
    .Display
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing