>I doubt that you need me to come up with this, but this at least compiles alright :)
>
>

>    Sub Main()
>        Dim ds As New DataSet
>        For Each dt As DataTable In ds.Tables
>            For Each dc As DataColumn In dt.Columns
>
>            Next
>        Next
>    End Sub
>

It was the datatable layer that I forgot.

Thanks