Public Class Form1
    Dim ds As New DataSet
    Dim xmlFile As String = "c:\database\test\xsdfile.xsd"
    Dim xsdFile As String = "c:\database\test\xmlfile.xml"
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
      Handles MyBase.Load
        ds.ReadXmlSchema(xsdFile)
        ds.ReadXml(xmlFile)
 
        With ComboBox1
            .DropDownStyle = ComboBoxStyle.DropDownList
            .BeginUpdate()
            .Items.Clear()
 
            For Each tbl As DataTable In ds.Tables
                .Items.Add(tbl.TableName)
            Next
 
            .EndUpdate()
        End With
 
        DataGridView1.DataSource = ds
        AddHandler ComboBox1.SelectedIndexChanged, AddressOf _
          Me.ComboBox_SelectedIndexChanged
 
    End Sub
 
    Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs)
        DataGridView1.DataMember = DirectCast(sender, _
        ComboBox).SelectedItem.ToString
    End Sub
 
End Class