Broadcast mediante UDP

[towi62]

Broadcast mediante UDP

He conseguido un tutorial donde me explican como intercambiar informacion en red mediante udp. Este es su codigo:

Option Explicit
Private Sub cmdEnviar_Click()
On Error Resume Next 'Para ignorar error 126 en Win9X
'Es necesario establecer nuevamente el RemoteHost y 'el puerto, para asegurarse que los paquetes se lleguen 'a enviar a todos los destinatarios.
wskBroadcast.RemoteHost = "255.255.255.255"
wskBroadcast.RemotePort = 20145

wskBroadcast.SendData txtMensaje.Text 'Envía los datos txtMensaje.Text = "" 'Limpia el txtMensaje
txtMensaje.SetFocus 'Mueve el foco hacia txtMensaje

End Sub
Private Sub Form_Load()
'Separamos el puerto 20145 para usarlo en nuestra 'aplicación.
wskBroadcast.Bind 20145
End Sub
Private Sub txtDatosRecibidos_Change()
'Mostrar siempre la última línea del TextBox.
txtDatosRecibidos.SelStart = Len(txtDatosRecibidos.Text)
End Sub
Private Sub txtMensaje_Change()
'Cuando el txtMensaje esté vacío, deshabilitar el botón 'de envío.
cmdEnviar.Enabled = (Len(txtMensaje.Text) > 0)
End Sub
Private Sub wskBroadcast_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String 'Variable para guardar los datos

'Recibe los datos y los almacena en la variable wskBroadcast.GetData Datos

'Si txtDatosRecibidos está vacío: If Len(txtDatosRecibidos.Text) = 0 Then
txtDatosRecibidos.Text = wskBroadcast.RemoteHostIP & ">" & Datos
'de lo contrario insertar primero un salto de línea y 'luego los datos.
Else
txtDatosRecibidos.Text = txtDatosRecibidos.Text & vbCrLf & wskBroadcast.RemoteHostIP & ">" & Datos
End If
End Sub

Y estos son sus controles:
wskBroadcast: El encargado del envío y recibo de mensajes.
txtMensaje: Contiene el mensaje que se desea enviar.
cmdEnviar: Al hacer clic en este botón, el mensaje se envía a toda la red.
txtDatosRecibidos: Todos los mensajes enviados desde otras PCs se mostrarán en esta caja de texto. Debe ser multilínea.

Mi Pregunta seria:

Como vemos este sistema hace que envie y reciba los datos entre cliente y servidor; pero al momento de reiniciar dicho sistema; todos los datos que el cliente envio al servidor se eliminaron.

La Pregunta del millon de pesos es como haria para que los datos en que sean enviados por el cliente; automaticamente se almacenen en la base de datos para que estos no se pierdan; a la hora de reiniciar dicho sistema en Vb

Agradeceria mucho a la persona que me ayude con este sistema.