VB with Text Files

I have to import data from text file to the database.It take a much time to complete.I want to make something to interact with user to make user feel the computer does not hang.I try to use Progess Bar to solve this problem by using No.of current position in text file devide by size of the file multiply by 100 but I cannot find no.of current position where the cursor pointed.How can I find the current position of the cursor or how can I find no of line the cursor pointed and no. of line in the file?

show us how u loop through the text file?

Use the Seek(FileNum) function.
Seek returns the next record number if you've opened the file for Random, otherwise it's the current byte position in the file to read.
(The first byte in the file is at position 1 not 0).

Best regards