Dim Recordset  As ADODB.Recordset
    Dim Anfrage  As String
    Dim URL  As String
    Dim f  As ADODB.Field
    Dim Record As ADODB.Record
    Dim Record1  As ADODB.Record
 
    Set Recordset = CreateObject("ADODB.Recordset")
    Set Record = CreateObject("ADODB.Record")
 
 
    Anfrage = "select ""urn:schemas:mailheader:content-class"" "
    Anfrage = Anfrage & ",""DAV:href"",""DAV:displayname"" "
    Anfrage = Anfrage & " from scope ('shallow traversal of "
    Anfrage = Anfrage & Chr(34) & URL & Chr(34) & "')"
    Anfrage = Anfrage & " ORDER BY ""DAV:displayname"" "
 
    Const adModeReadWrite = 3
    Record.Open Domain, , adModeReadWrite
    Set Record1 = Record
 
    Recordset.Open Anfrage, Record1.ActiveConnection
    Recordset.Find "RESOURCE_DISPLAYNAME like  " & "'*- " & Zählernummer & _
      ".eml'"

Recordset.Find ("RESOURCE_DISPLAYNAME like  " & "'*- " & Zählernummer & ".eml'")

Recordset.Find "RESOURCE_DISPLAYNAME like  " & "'*- " & Zählernummer & ".eml'"