Funções Nativas do Visual Basic

[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!!!