Rafaselic

Bom dia, amigos Sou desenvolvedor .NET e estou com dificuldade de entender um trecho de código escrito em VB6. Já dei uma pesquisada à respeito do método "Seek", mesmo assim não ficou claro. Segue o trecho do código em VB, que utiliza um RecordSet, com Index e o tal método Seek. Quem souber à respeito, pode me explicar melhor o que esse código faz exatamente?!? Private Sub Command6_Click() If MsgBox("Se for pressionado SIM será gerado o arquivo. Confirma?", vbYesNo, "Gera arquivo texto para ser importado pelo DIMOB") = 6 Then Screen.MousePointer = 11 sequencia = 0 Open "c:\locacao\dimob" & Text2 & ".txt" For Output As #1 myrecord0.sistema = "DIMOB" myrecord0.reservado = Space(369) myrecord0.delimitador = vbCr myrecord0.delimitador1 = vbLf Print #1, myrecord0.sistema + myrecord0.reservado myrecord1.tipo = "R01" myrecord1.cnpj = "48435101000111" myrecord1.ano = Text2.Text myrecord1.declaracaoretificadora = "0" myrecord1.numerodorecibo = "0000000000" myrecord1.situacaoespecial = "0" myrecord1.datadoevento = "00000000" myrecord1.codigo = "00" myrecord1.uf = "SP" myrecord1.codigodomunicipio = "7107" myrecord1.reservado = Space(30) myrecord1.delimitador = vbCr myrecord1.delimitador1 = vbLf Print #1, myrecord1.tipo + myrecord1.cnpj + myrecord1.ano + myrecord1.declaracaoretificadora + myrecord1.numerodorecibo + myrecord1.situacaoespecial + myrecord1.datadoevento + myrecord1.codigo + myrecord1.nomeempresarial + myrecord1.cpfdoresponsavel + myrecord1.enderecodocontribuinte + myrecord1.uf + myrecord1.codigodomunicipio + myrecord1.reservado tdimob.Index = "imovel_locatario" tdimob.Seek ">", Text2.Text, 0, "", 0, 0, "" If tdimob.NoMatch Then Else cod_proprietario = tdimob("cod_proprietario") cpf_cgc = tdimob("cpf-cgc") sequen = tdimob("sequencia") cod_locat = tdimob("cod_locatario") Agradeço qualquer ajuda. Valeu!!!