Dim _dtPat As New DataTable
        Dim _dtKons As New DataTable
        Dim _dtDiag As New DataTable
        _daPat.FillSchema(_dtPat, SchemaType.Source)
        _daPat.Fill(_dtPat)
        _daKons.Fill(_dtKons)
        _daDiag.Fill(_dtDiag)
 
        Dim d As New fillDelegate(AddressOf _daDiag.Fill())
        Dim iar As IAsyncResult = d.BeginInvoke(_dtDiag, Nothing, Nothing)
        While Not iar.IsCompleted And Not isCancel
            Application.DoEvents()
            System.Threading.Thread.Sleep(50)
        End While
 
        If isCancelThen Return
        d.EndInvoke(iar)
         .....