Visual Basic - Accesar una DBF desde Visual basic

ced = Lista.Columns(2).Text

texto = "cedula like '" & ced & "'"

Dim gDb As Database
Dim gt As Recordset

Set gDb = OpenDatabase("c:\sicatrace", False, False, "FoxPro 2.5;")

Set gt = gDb.OpenRecordset("pla_con")

gt.FindFirst texto

ESTE ES EL MENSAJE DE ERROR
error operacion no valida para este tipo de objeto

Hazlo mejor con ADODB:
Dim conexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Call conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[ruta];Extended Properties=""DBASE IV;"";")
Set rs = conexion.Execute([consulta])
rs.FindFirst texto