Dim F As Integer
Dim sLine As String
 
With Grid1
  .LockUpdate True
  .DataMode = Mode_List
 
  ' Textdatei einlesen
  F = FreeFile
  Open "Datei.txt" For Input As #F
  While Not Eof(F)
    Line Input #F, sLine
    .AddItem sLine
  Wend
  Close #F
 
  .LockUpdate False
  .Refresh
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de