Private Sub lstTables_SelectedIndexChanged(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles lstTables.SelectedIndexChanged
  ' Przeznaczenie: Skonstruowanie listy pól tabeli wybranej 
  ' przez użytkownika.

  Dim AdoConn As New ADODB.Connection()
  Dim i As Integer, buff As String
  Dim MyCat As New ADOX.Catalog()
  Dim tbl As ADOX.Table, col As ADOX.Column

  txtQuery.Clear()   ' W wyniku zmiany tabeli czyścimy zapytanie

  AdoConn.Open(strConnect)   ' Otwieramy połączenie

  MyCat.ActiveConnection = AdoConn
  lstFields.Items.Clear()        ' Czyścimy stare nazwy pól
  For Each tbl In MyCat.Tables   ' Przeglądamy tabele...
                                 ' dla zaznaczonej tabeli...
    If tbl.Name.ToString = lstTables.SelectedItem Then
      lstFields.Items.Add("*")
      For Each col In tbl.Columns  ' ...pokazujemy pola
        lstFields.Items.Add(col.Name)
      Next
      Exit For
    End If
  Next
  AdoConn.Close()
End Sub
