Rs.EOF evaluating true

Hi Paul

As required by you , below is the code.
The code works perfect on IBM Think pad whereas it fetches only 2 rows from DELL laptop database.

Ravindra Nookala

Rs.Open "select * from " & txtTname.Value & " where " & txtWhereColumn.Value & " " & Trim(txtWhereValue.Value), Cn, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then
Rs.MoveFirst
While Not Rs.EOF
If Flag Then
DoEvents
v_WrittenRows = v_WrittenRows + 1

For v_FieldsCount = 0 To Rs.Fields.Count - 1
ActiveCell.Offset(i, v_FieldsCount) = Trim(Rs.Fields(v_FieldsCount).Value)
Next
Else
MsgBox " Import Process Terminated Successfully !!! ", vbInformation, "Data Import Process."
Call RsCnClose
Call Properties
Exit Sub
End If
Rs.MoveNext
lblCounter.Caption = "Rows Processed : " & v_WrittenRows
Wend
MsgBox v_WrittenRows & " Rows Imported Successfully !!!", vbInformation, "Data Import Process."
ActiveWorkbook.Save
Call RsCnClose
Exit Sub
Else
If chkFilter.Value = True Then
MsgBox "There Is No Data To Import." _
& vbCrLf & "Please Verify Whether The Table Is Empty " _
& vbCrLf & "Or Case Sencitivity Of Column Value." _
, vbInformation, "Data Import Process."
Else
MsgBox "There Is No Data To Import." _
& vbCrLf & "Please Verify Whether The Table Is Empty." _
, vbInformation, "Data Import Process."
End If
Call RsCnClose
Exit Sub
End If

Hi Paul

It is oracle's default emp table. I do not see any problem with my code at all.
This is the strange thing I am seeing for the first time.

Ravindra Nookala

The only query I have is that you use the following line of code:

If Flag Then ...

Where is flag defined and set?

Have you tried running your query through SQL Plus or another Oracle tool to verify that the data is the same on both computers?