Aus SQL Abfrage Ergebnis in Variable per loop schreiben

Hallo,

ich habe eine Temp_Abfrage, welche ich per Schleife nach und nach in eine Variable schreiben möchte
begonnen habe ich mit u.g.

Führe ich die Abfrage STRSQL1 in Access direkt aus erscheinen mir 6 Zeilen als Ergebnis

Wie bekomme ich es hin, das er mir nun den ersten Werte in die Variable IP_Adresse
schreibt und per Schleife nach und nach jeden Wert der Reihe nach ( LOOP)


Vielleicht kann mir hier jemand weiterhelfen

Danke, Grüße aus München

Dim IP_Adresse, strSQL1, suche1, v1, url As String
dim rcd as recordset

strSQL1 = "SELECT DISTINCT [BP_Tabelle].IP" & _  
          "FROM [BP_Tabelle] LEFT JOIN [IMPORT aus Excel] ON [BP_Tabelle].[Linux] = [IMPORT aus Excel].Server " & _  
          "WHERE ((([BP_Tabelle].System) Like '*TEST*'))"  

rcd = CurrentDb.OpenRecordset(strSQL1)(0) 
rcd.movefirst
while not rcd.EOF
  IP_Adresse=rcd["IP"].value  
  .....
  rcd,movenext
loop

Dim IP_Adresse, strSQL1, suche1, v1, url As String 
Dim rcd As Recordset

strSQL1 = "...."  

rcd = CurrentDb.OpenRecordset(strSQL1)(0)
rcd.MoveFirst
While Not rcd.EOF
  IP_Adresse = rcd.value
  Debug.Print IP_Adresse
  rcd , MoveNext
Loop