Private Delegate Function fillDelegate(ByVal ds As DataSet, ByVal _
              name As String) As Integer
 
 
            Dim d As New fillDelegate(AddressOf Datenadapter.Fill)
            Dim iar As IAsyncResult = d.BeginInvoke(Dataset1, "Tabelle", _
              Nothing, Nothing)
 
            While Not iar.IsCompleted
                Application.DoEvents()
                System.Threading.Thread.Sleep(50)
            End While
            d.EndInvoke(iar)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist