Take long time to open

[NewVBguy]

Hello there,
I am trying to connect to an Oracle database that contains 210,799 records with 50 columns. My plan here is to compare the speed between MS Access database and Oracle. Ms Access took me less than a minute to open the database and display the first row while in Oracle took me 7 minutes doing same thing. Considering that the user that I am using Scott have all the rights and privileges, can anybody help and teach me how to cut the time? Source code will be the best... Below is my codings:

Private Sub Command4_Click()
Dim ocon As New ADODB.Connection, r As New ADODB.Recordset
ocon.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=oradata;User Id=scott;Password=tiger;"
ocon.CursorLocation = adUseClient
ocon.Open 
r.Open "select * from sampledata", ocon
r.MoveFirst
Do While r.EOF() = False
    Me.Caption = r("description")
    r.MoveNext
Loop
r.close
End Sub

thanks in advance

newvbguy