Private Sub TestWorker_ProgressChanged(ByVal sender As Object, ByVal e As _
  System.ComponentModel.ProgressChangedEventArgs) Handles _
  BackgroundWorker1.ProgressChanged
        FillDGV()
    End Sub
 
 
    Private Sub FillDGV()
        If (dt.Rows.Count = 0) Then
            Status.Text = "Keine Vorschläge vorhanden"
        Else
            ...
            Status.Text = "Daten komplett"
        End If
    End Sub