1st of all the txt file data import into the datatable 
using filesystemobject.

After completion of import the data how many rows u want u 
can retrive using for loop.


you have any quarries regarding the same plz contact me or 
mail me
gi_raju@hotmail.com
9823257761

can u give me code

Hi, check the Below function,

Public Function Func_ReadFromNoetpad
(str_filePath,int_frmLine,int_toLine)

Set fso = CreateObject("Scripting.FileSystemObject")
Set Notepad = fso.OpenTextFile(str_filePath,1)

int_Value = 0

Do While Notepad.AtEndOfStream <> True
      getLine  = Notepad.ReadLine
     int_value = int_value+1

   If int_Value => int_frmLine and  int_Value <= 
int_toLine  Then
	   msgbox  getLine
   End If
   
   Loop

Set Notepad = Nothing

End Function


      Here "str_filePath" is location of the text file in 
ur local machine, "int_frmLine" is for from which line u 
want to get the data and "int_toLine" is for to which line 
u want to get the data.

   for example If u want to get the data from 20 to 30

Func_ReadFromNoetpad "C:\Documents and 
Settings\sdevarapalli\Desktop\sample.txt",20,30

Note: Here i used msgbox to display the data, becoz i don't 
the exact scenario what u want. If u send me what u want to 
do with that i can update this function.

If any queries or concerns please mail at :

nanda.dreddy@gmail.com