Private Delegate Function fillDelegate1(ByVal ds As DataTable) As Integer
    Private _sqlconnString As String = "Server=Darla\MSDE2k;Integrated" & _
      "Security=SSPI;Database=NORTHWIND"
    Private _sqlConn As New SqlConnection
    Private _sqlDa As SqlDataAdapter
 
 
        '...
 
        _sqlConn.ConnectionString = _sqlconnString
        Dim dt As New DataTable
        Try
            Dim cmd As New SqlCommand("Select count(*) From Orders", _sqlConn)
            Dim cnt As Integer
            _sqlConn.Open()
            cnt = cmd.ExecuteScalar()
 
            _sqlDa = New SqlDataAdapter("Select* From Orders", _sqlConn)
 
            Dim d As New fillDelegate1(AddressOf _sqlDa.Fill)
            Dim iar As IAsyncResult = d.BeginInvoke(dt, Nothing, Nothing)
 
            While Not iar.IsCompleted
                Application.DoEvents()
                System.Threading.Thread.Sleep(10)
 
                ' Hier StatusBar setzen...
                Debug.WriteLine((CInt(100 * dt.Rows.Count / cnt)).ToString())
            End While
            d.EndInvoke(iar)
 
        Catch ex As System.Exception
            MsgBox("Error: " & ex.Message)
            Return
        Finally
            _sqlConn.Close()
        End Try

________
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