Dim rs as RecordSet 
Dim variable as String 
Dim a as Variant 
Dim array() as Variant 
 
'*e und r sind weitere Arrays, die auch als Variant deklariert sind 
ReDim array(UBound(e) + UBound(r) + 1) 
 
For Each a in array 
  ' Code ohne Ende... 
 
  Set rs = SQLCode 
  rs.MoveFirst 
  Do While Not rs.EOF 
    [color=red]Set rs = SQLCode[/color]
    variable = variable & "; " + rs1.Fields(0) 
    rs.MoveNext 
  Loop 
  rs.Close 
 
  ' Code ohne Ende.... 
Next a

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de