Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdUpdate.Click
   Dim t As Threading.Thread = New Threading.Thread(AddressOf _
   UpdateSelectedArtikel)
'   Fenster für Benutzerhinweis das Update läuft und Prog. nicht abgestürzt ist
   Dim OpenFrmUpdate As frm_Update = New frm_Update
   OpenFrmUpdate.Show()
   t.Start()
End Sub
 
Private Sub UpdateSelectedArtikel()
   'Fülle einige DataViews mit Daten
   'Vergleiche Daten
   ReadNewDaten()
End Sub
 
Private Sub ReadNewDaten()
   'Lese neue DataViews ein und packe diese in DataGrid.DataSource
   Me.DataGrid1.DataSource = DataView1
End Sub