Office: IPCam-Bild per VBA holen & speichern (klappt nur 1x je Access-Start)

Hallo,

rufe von einer IPCam ein Bild per URL ab.
Problem: Das klappt nach Access-Start nur genau 1x. Danach wird immer und immer dasselbe Bild angezeigt und auch abgespeichert, obwohl er die Uhrzeit im Dateinamen hochzählt.

Beende ich Access & starte neu, ruft die Funktion wieder genau 1x ein Bild ab.

Nun muss dieses zurücksetzen auch per VBA gehen, ohne Access immer neu starten zu müssen.
Nur wie?

Code:

Public Sub BildSpeichern(CamAdresse As String, Verzeichnis As String, DateiPraefix As String)
    txtPfad.Value = ""
    Dim URL As String
    Dim WinHttpReq As Object
    Dim oStream As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    URL = CamAdresse
    WinHttpReq.Open "GET", URL, False
    WinHttpReq.Send
    URL = WinHttpReq.ResponseBody
    If WinHttpReq.Status = 200 Then
      Set oStream = CreateObject("ADODB.Stream")
      oStream.Open
      oStream.Type = 1
      oStream.Write WinHttpReq.ResponseBody
      On Error Resume Next
      Dim strDateiname As String
      strDateiname = Verzeichnis & "\" & DateiPraefix & "_" & Format$(Now, "yyyy.mm.dd") & " " & ShowSysTime(TimeToMillisecond) & ".jpg"
      oStream.SaveToFile strDateiname
      oStream.Close
    End If
    Bild.Picture = strDateiname
    txtPfad.Value = strDateiname
End Sub

Danke für eure Hilfe,
Heiko