Error Seek

[carlos]

Cuando hago un Seek obtengo el siguiente error
FIELDPUT(0)
Error BASE/1004 Class: 'NIL' has no exported method: FIELDPUT
Argumentos: ( [ 1] = Tipo: N Valor: 1 [ 2] = Tipo: C Valor: )
y lo que hago es lo siguiente:
WITH OBJECT ::oCdxDS // := TCdxDataSource():New( Self )
:cConnect := "C:ControlarDatos"
:lConnected := .T.
END
WITH OBJECT ::oDbfDS1 := TDbfDataSet():New( Self )
:oDataSource := ::oCdxDS
:cProcess := "GENERAL"
:cName := "Personas.Dbf"
:lOpen := .T.
:Create()
::aTags := :GetTags()
:OrdSetFocus(::aTags)
:Reindex()
:FilLock(0) ///El error me da despues de que pongo esto,, pero si no
lo pongo me da otro error o sea "Lock Requerid"
END
WITH OBJECT ::oDbfDS2 := TDbfDataSet():New( Self )
:oDataSource := ::oCdxDS
:cProcess := "GENERAL"
:cName := "Usuarios.Dbf"
:lOpen := .T.
:Create()
::aTags := :GetTags()
:OrdSetFocus(::aTags)
:Reindex()
:FilLock(0)
END
WITH OBJECT ::oDbfDS3 := TDbfDataSet():New( Self )
:oDataSource := ::oCdxDS
:cProcess := "GENERAL"
:cName := "Derechos.Dbf"
:lOpen := .T.
:Create()
::aTags := :GetTags()
:OrdSetFocus(::aTags)
:Reindex()
:FilLock(0)
END
WITH OBJECT ::oDbfDS4 := TDbfDataSet():New( Self )
:oDataSource := ::oCdxDS
:cProcess := "GENERAL"
:cName := "Grupos.Dbf"
:lOpen := .T.
:Create()
::aTags := :GetTags()
:OrdSetFocus(::aTags)
:Reindex()
:FilLock(0)
END
WITH OBJECT ::oDbfDS5 := TDbfDataSet():New( Self )
:oDataSource := ::oCdxDS
:cProcess := "GENERAL"
:cName := "Usr2Grp.Dbf"
:lOpen := .T.
:Create()
::aTags := :GetTags()
:OrdSetFocus(::aTags)
:Reindex()
:FilLock(0)
END
WITH OBJECT ::oEditUser
::oField1 :=
TDataField():Create(::oDbfDS1,1,"IDPERSONA"):New(::oEditUser)
::oField2 :=
TDataField():Create(::oDbfDS2,1,"IDUSUARIO"):New(::oEditUser)
::oField3 :=
TDataField():Create(::oDbfDS3,1,"IDGRUPO"):New(::oEditUser)
::oField4 :=
TDataField():Create(::oDbfDS4,1,"IDUSORGRP"):New(::oEditUser)
::oField5 := TDataField():Create(::oDbfDS5,1,"ITEMED"):New(::oEditUser)
::oField6 := TDataField():Create(::oDbfDS6,1,"NOMBRE"):New(::oEditUser)
WITH Object ::oField1
:oDataSet := ::oDbfDS1
:cName := "IDPERSONA"
:Value := ""
END
WITH Object ::oField2
:oDataSet := ::oDbfDS2
:cName := "IDUSUARIO"
:Value := ""
END
WITH Object ::oField3
:oDataSet := ::oDbfDS3
:cName := aCampos[3] //"IDGRUPO"
:Value := ""
END
END
WITH OBJECT ::oLabel3 := TLabel():New(::OTB2 )
:SetBounds( 310, 5, 70, 20, .t.)
:oFont := TFont():Create( "Arial", 10, 0, 700 )
:lTransparent := .T.
:lAutoSize := .T.
:lMultiLine := .F.
:Create()
If ::oDbfDS2:Seek(::oEditUser:Value)
:cText := ::oDbfDS2:FieldGetByName("Nombre")
Else
:cText := "No hay Usuario"
If MsgYesNo("Este usuario no Existe en la Tabla ,, REPITA","Error
de Logeo", "Sistema General de Ventas")
::oEditUser:Value := space(11)
::oEditUser:SetFocus()
Endif
Endif
END
Pues necesito me digan que hago de mas o que me falta
GRacias