Вопрос по VBA в MicroStation

[rus] Vsem Privet!
Nuzhen vash sovet, druzya!
Delo samo po sebe-to banal'noe no vot u samogo uma ne khvataet.  V base dannych  [/rus] MicroStation [rus] chitaet
odnu kolonku v kotoroi nachodyatsya mnozhastvo nazvanii
elementov. 12 iz nikh dolzhny byt' skomplektovanny dlya dal'neishei obrabotki. Kazhdye tri iz etich dvenadzati posle obrabotki vydajut novyi element. Dlya pravil'noi komplektazii
naimenovaniya u kazhdykh trkh strok odno i to-zhe. Vse 12 strock (kotorye ne obyasatel'no idut po poryadku v base dannykh), nuzhdayushiesya v drug druge dlya vypolneniya
resheniya sadachi kharekterisiruyutsya dopolnitel'noi bukvoi
(*) , kotoraya yavlyaetsya sakllyuchitel'nym elementom v oboznachenii stroki. Tak vsya basa rasbita na mnozhesvo
strok sredi kotorych 12 "prinadlezhat" drug drugu. Sredi etich 12 vyshe opisannym obrazom est' eshe po 4 gruppy.
Nizha ukazannym putem [/rus] MicroStation [rus]  schityvaet
naimenovaniya v ukazannoi kolonke i komplektuet drug drugu
sootvetstvuyushee stroki vyshe ukazannym putem dlya pererabotki.  Moya problema v tom chto, posle togo kak pervye 12 strok byli pererabotany i vydali svoi resultaty funktiya samostoyatel'no pomenyalas' na tot parameter,
kotoryi charakterisiruet novye (dalle v spiske ukazanneye) 12 strok (sm. (*)) i vypolnyaet to-zhe smoe shto i s pervymi 12
strok teper' uzhe so vtorymi. I tak dalee. [/rus]
Смотри code:
__________________________________________________
Set rst = dbs.OpenRecordset("Select DISTINCT BBBBB,AAAAAAAAAAA FROM tab_AAAAAAAAAAA WHERE tab_AAAAAAAAAAA.BBBBB Like '" & "CCCCd*'")
   If Not (rst.EOF) Then                                                    rst.MoveLast    rst.MoveFirst
    For i = 1 To rst.RecordCount
        If Not (rst.EOF) Then
            Select Case Left$(rst.Fields("AAAAAAAA"), 1)
            Case "D":
                Select Case i
                Case 1:
                    Result1 = AnToMiF(rst.Fields("BBBBB"))
                Case 2:
                     Result2 = AnToMiF(rst.Fields("BBBBB"))
                Case 3:
                     Result3 = AnToMiF(rst.Fields("BBBBB"))
                Case 4:
                     Result4 = AnToMiF(rst.Fields("BBBBB"))
                End Select
            Case Else
            End Select
            If Not (rst.EOF) Then
                rst.MoveNext
            End If
        End If
    Next
__________________________________________________
[rus] Posle tago kak funktiya proshla chrez vse 12
strok ona vydaet iszpol'zuya 4 raza po tri stroki sootvetstvenno
4 resul'tata.  Nuzhno chtoby posle probega programma vozvrashalas' k nachalu i izmeniv velichinu "CCCCd"  na
"  CCCCd' ", gde d' "snachok" kharakterisiruyushij uzhe novyi nabor strok delala to-zhe samoe s etimi novymi dannymi.
I Tak dalee poka ne sakonchitsya spisok [/rus]
[rus] Kto mozhet skazat' kakim obrazom sastavit' funkziyu
pereklyuchat'sya na novyi parameter i obrabatyvat' sleduyushij
nabor iz 12 strok ?[/rus]
Благодарен за любои совет.
всем привет !
Alexander Heide