Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        DataGridView1.DataSource = DataSet1.Tables(ListBox1.SelectedItem)
        Dim dtbl As New System.Data.DataTable