rs.MoveFirst
                    Zeile = 3: Spalte = 2
                    Do While Not rs.EOF
                        For ii = 0 To rs.Fields.Count - 1
                            If Zeile = 3 Then
                                'Name des Attributs aus dem Recordset in die 
                                ' Zelle schreiben 
                                XL1.Worksheets(1).Cells(Zeile - 1, _
                                  Spalte).Value = rs.Fields(ii).name
                            End If
                            XL1.Worksheets(1).Cells(Zeile, Spalte).Value = _
                              rs.Fields(ii).Value
                            Spalte = Spalte + 1
                        Next ii
                        rs.MoveNext
                        Spalte = 2
                        Zeile = Zeile + 1
                    Loop