Private Sub Command1_Click()
Dim data() As Byte
Dim f As Long
Dim FileSize As Long
Dim FName As String
Dim i As Integer
Dim BytesRead As Long
Const BLOCK_SIZE = 16384
 
FName = "C:\Text.xls"
 
   For i = 0 To 1
      Debug.Print "Anzahl: " & i & " Zeit Anfang: " & Now
      BytesRead = 0
      f = FreeFile
      Open FName For Binary As #f
      FileSize = LOF(f)
      Do While FileSize <> BytesRead
         If FileSize - BytesRead < BLOCK_SIZE Then
            data = InputB(FileSize - BytesRead, f)
            BytesRead = FileSize
         Else
            data = InputB(BLOCK_SIZE, f)
            BytesRead = BytesRead + BLOCK_SIZE
         End If
         'Daten in Datenbank wegschreiben
         'm_rst(Feld).AppendChunk data
 
 
      Loop
      'data = InputB(FileSize, f)
      Close #f
      Debug.Print "Anzahl: " & i & " Zeit Ende: " & Now
      DoEvents
   Next i
End Sub