DBF TAble Query

JayKappy

I am simply trying to query a dbf file through my app
I am trying this and keep getting errors

Object Required 'pDS.Find(...)
Source Text Unavailable


Any thoughts?

 
Dim path
path = "C:\Temp\MUTCD_Code.dbf"

Dim pDS
Set pDS = Application.CreateAppObject("RecordSet")
     
pDS.Open(path)

Dim pRS
Set pRS = pDS.Find("[OBJECTID] = 10")

Dim Test
Test = 0

pRS.MoveFirst
Do While Not pRS.EOF 
 Test = 1
 pRs.MoveNext 
Loop

msgbox Test

pRS.Close 
Set pRS = Nothing

JayKappy

THink I got it:

Dim path
path = "C:\Temp\MUTCD_Code.dbf"

Dim pDS
Set pDS = Application.CreateAppObject("RecordSet")
     
 pDS.Open(path)

pDS.Find("[OBJECTID] = 10")

Dim Test, varTest
Test = 0

pDS.MoveFirst
Do While Not pDS.EOF 
 Test = 1
 varTest = pDS.Fields("MUTCD_Code").Value
 pDS.MoveNext 
Loop

msgbox Test & varTest

pDS.Close 
Set pDS = Nothing