Dim FeldSize() As Integer
        Dim ds As System.Data.DataSet = New System.Data.DataSet( _
          "MeineDatenbank")
        ds.ReadXml(Dateiname)
        Dim dt As System.Data.DataTable = ds.Tables(XMLtag)
        For Each dr As System.Data.DataRow In dt.Rows
            For T = 0 To dt.Columns.Count - 1
                 ...
            Next
        Next

Joachim