Thanks,however I am still getting an error. The error is "run-time error 424. Object requierd." What am I doing wrong? Help!!!

Below is my code:

Dim oDataComm As ADODB.Connection
Dim i%, MaxFields%
Dim lPhone As String
Dim oRecSet As New ADODB.Recordset

' Make connection to DB
Set oDataComm = New ADODB.Connection
oDataComm.ConnectionString = "DSN=ctcore"
oDataComm.Open

oRecSet.CursorLocation = adUseClient
oRecSet.Open "SELECT * FROM Phone", oDataComm

Do
lPhone = oResSet.Fields("PhcPhone").Value **error is occuring here**
oResSet.MoveNext
Loop While Not oRecSet.EOF

I want to loop through my recordset(oResSet) and get the values stored in my table (Phone) in PhcPhone filed.

oRecSet.Close
oDataComm.Close
Thanks alot for all the help!!!
MA