Løkke som udfylder date i excel

Jeg har et Excel regneark, hvor en Macro henter en række udvalgte poster fra en tabel i en database.

Nu vil jeg hente yderligere oplysninger fra DB'en ud fra de allerede hentede oplysninger.

Dvs. den løkke jeg skal lave skal hente en værdi fra celle A2, lave en sql forespørgsel med denne, returnere værdien i celle C2, og loope forfra med A3...

Kan jeg få hjælp til denne macro.
Min første macro ser således ud:
------------------------------------------------------------
Sub connect()
    Dim DB As ADODB.Connection
    Dim rs As ADODB.Recordset
   
    Set DB = GetDB
    SQLText = "SELECT komtyp,n.objid FROM nettkonf n,component c, PLAN p WHERE " & _
              "n.objid=c.compid AND komtyp IN('TY','RO','DP','QM') AND " & _
              "name2 ='" & Ark2.Cells(1, 1) & "' AND " & _
              "n.termnr=1 AND sdo_relate(c.geometry,p.geometry,'mask=inside querytype=JOIN')='TRUE'"

    Set rs = DB.Execute(SQLText)
    Række = 2
    While Not rs.EOF
        Ark1.Cells(Række, 1) = rs("KOMTYP")
        Ark1.Cells(Række, 2) = rs("OBJID")
        Række = Række + 1
        rs.MoveNext
    Wend
   
    DB.Close
    Set DB = Nothing
End Sub
--------------------------------------------------------