Problemer med WHERE sætning

Hvad er der galt her, jeg ved ikke hvornår det gik galt men det har virket :o(

Function MailFileList(ID As Long) As String

Dim rs As ADODB.Recordset
Dim str As String

    Set rs = New ADODB.Recordset

    With rs
        Set .ActiveConnection = CurrentProject.Connection
        .Open "Select FilNavn From tblPressemeddelelse_Filer WHERE"
    PressemeddelelsesNrRef = " & ID"