Caro amigo, passe os seguintes comandos: objeto.SelectionFormula = "{FUNCIONARIO.codfuncionario} = " & txtcodigo.text objeto.RetrieveDataFiles objeto.Action = 1 ou se você estiver usando a ferramenta dentro do próprio VB você terá que passar os parametros na RecordSet espero ter ajudado []s