Private Delegate Function fillDelegate(ByVal ds As DataSet, ByVal _
              name As String) As Integer

            Dim d As New fillDelegate(AddressOf _da.Fill)
            Dim iar As IAsyncResult = d.BeginInvoke(_ds, "Territories", _
              Nothing, Nothing)
 
            While Not iar.IsCompleted
                Application.DoEvents()
                System.Threading.Thread.Sleep(100)
            End While
            d.EndInvoke(iar)