Private Sub Pflegen()
  Dim W As Winsock
 
  For Each W In Winsock
    With W
 
      If .State = sckConnected Then
        .Tag = "send"
        .SendData "Datenbank wird gepflegt"
 
        Do While .Tag <> vbNullString
          DoEvents
        Loop
 
        .Close
       End If
    End With
  Next W
End Sub

'zuerst:
W.SendData "<UpdateDB>" 'Teillt den Clients mit, dass die Pflege beginnt.
 
'danach:
W.SendData "<RedyToUpdate>" 'Sendet der Client, wenn er beriet ist.
 
'und zum Schluss:
W.SendData "<UpdateFinished>" 'Sendet der Server, wenn er ferig ist.