If BGW_OZ.IsBusy Then
                        If BGW_OZ.WorkerSupportsCancellation Then
                            BGW_OZ.CancelAsync()
                        End If
                    End If

Do While BGW_OZ.IsBusy
                        Debug.Print(String.Format("warte auf BGW {0}", _
                          Now.ToString))
                    Loop

 If Not BGW_OZ.IsBusy Then
                        Dim mDV As New DataView(ProjDts.Massen, "OZ = '" & _
                          aktOZ & "' and Art LIKE '" & MassenArt & "'", _
                          "Adresse", DataViewRowState.CurrentRows)
                        BGW_OZ.RunWorkerAsync(mDV)
                    End If

Danke für die Hilfe

Gruß Christian