Private Sub fill(ByVal ds As DataSet, ByVal table As String)
                _da.Fill(ds, table)
            End Sub

            Private Delegate Sub fillDelegate(ByVal d As DataSet, ByVal name As _
              String)

            Dim d As New fillDelegate(AddressOf fill)
 
            Dim iar As IAsyncResult = d.BeginInvoke(_ds, "Orders", Nothing, _
              Nothing)
 
            While Not iar.IsCompleted
                System.Threading.Thread.Sleep(50)
            End While
            d.EndInvoke(iar)

            Dim iar As IAsyncResult = d.BeginInvoke(_ds, "Orders", AddressOf _
              FillDone, Nothing)

            Public Sub FillDone(ByVal ar As IAsyncResult)
                ' Was immer...
            End Sub