CREATE TABLE TABLE1 (FIELD1 NUMERIC (4,0))
						

cnn.Open "dsn=ORACONN;uid=demo;pwd=demo", , , -1
  cmd.ActiveConnection = cnn
 
  For i = 1 To 7000
    cmd.CommandText = "insert into DEMO.TABLE1 (FIELD1) Values(" & Str(i) & ")"
    cmd.Execute
  Next i
						

Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rstRecordIDs As ADODB.Recordset
    Dim strCnn As String

    Set cnn = New ADODB.Connection
    Set cmd = New ADODB.Command
   
   On Error GoTo Err_cmdDBTest_Click
   
   'Open recordset from table.
   
   'Connection string #1 using OLEDB provider for oracle fails when attempting to move to
   'rows around 5000.
   strCnn = "Provider=MSDAORA.1;Password=demo;User ID=demo;Data Source=dseoracle8"
   
   'Connection string #2 using MS ODBC for Oracle works fine
   'strCnn = "DSN=ORACONN;pwd=demo;uid=demo"
   
   Set rstRecordIDs = New ADODB.Recordset
   rstRecordIDs.CursorType = adOpenForwardOnly
   rstRecordIDs.LockType = adLockReadOnly
   rstRecordIDs.CursorLocation = adUseServer
   rstRecordIDs.MaxRecords = 100000
   rstRecordIDs.CacheSize = 100
   Debug.Print cnn.Version
   rstRecordIDs.Open "SELECT FIELD1 FROM DEMO.TABLE1 ORDER BY FIELD1", strCnn, , , adCmdText
    
    If rstRecordIDs.EOF Then
      MsgBox "No records!"
      Exit Sub
    End If
   
   rstRecordIDs.MoveFirst
   If rstRecordIDs.EOF Then
     MsgBox "No Rows!"
     Exit Sub
   End If
   
   Do While True
     lstData.AddItem "Record ID: " & rstRecordIDs!FIELD1
     rstRecordIDs.MoveNext
     
     If rstRecordIDs.EOF Then
       MsgBox "At end of recordset!"
       Exit Do
     End If
   Loop
   
   rstRecordIDs.Close
   Exit Sub
Err_cmdDBTest_Click:
    Debug.Print "Error Description : " + Err.Description
End Sub"