hello

i wrote a programm in VB which reads the data from an excel file and
insert them in a mdb database.

I wrote some code which when it found a blank line reads the next
sheet

when i want to count the line as below and change the sheet in row
65537 line it conitnues to add blank line after the 65536 line

Any Idea?

While excsht.cells(i, 1).Value < "" And i <= 65536

//commands

i = i + 1
On Error Resume Next
Wend