here is what worked for me. If you have other alternatives please post would like to to look at them. Thanks again Dim myDS As DataSet = New DataSet myDS.ReadXmlSchema("reason.xsd") Dim s As String Dim i As Integer For i = 0 To myDS.Tables(0).Columns.Count - 1 s = myDS.Tables(0).Columns(i).ToString Next