If MsgBox("ACHTUNG: Die Technologiedatenbank wird aktualisiert!" & vbCrLf & _
     vbCrLf & "Wollen Sie wirklich fortfahren?", vbQuestion + vbYesNo, "© 2004" & _
     "MDM.Software.Development") = vbYes Then
      'Aktualisieren
      'Kill sLocal
   On Error Resume Next
      err.Clear
         Me.MousePointer = 11
         FileCopy sServer, sLocal
         Me.MousePointer = 0
      If err.Number <> 0 Then
         MsgBox "Leider konnte eine Datei nicht gefunden werden!" & vbCrLf & _
           vbCrLf & "Fehlernummer: " & err.Number & vbCrLf & err.Description, _
           vbCritical, "Fehlermeldung"
         Exit Sub
      End If
   On Error GoTo 0
   On Error GoTo err
      MsgBox "Die Technologiedatenbank wurde erfolgreich aktualisiert", _
        vbInformation, "© 2004 MDM.Software.Development"
      Shell Chr(34) & sProg & Chr(34), vbNormalFocus
      Unload Me
   Else
      MsgBox "Die Technologiedatenbank wurde nicht aktualisiert!", _
        vbInformation, "© 2004 MDM.Software.Development"
      Shell Chr(34) & sProg & Chr(34), vbNormalFocus
      Unload Me
   End If

>> <<