Visual Basic - realizar busqueda en 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
en la linea del find first sale el error ese de arriba