Private Sub lstFields_SelectedIndexChanged(ByVal sender As Object, _
           ByVal e As System.EventArgs) Handles lstFields.SelectedIndexChanged
    ' Przeznaczenie: Wybranie nazw pól do zapytania.

    If lstFields.SelectedItem = "*" Then   ' Czy została wybrana gwiazdka?
      txtQuery.Text = "SELECT * "
      Exit Sub                ' To wszystko... kończymy
    End If
    If txtQuery.TextLength = 0 Then
      txtQuery.Text = "SELECT "
    End If
    txtQuery.Text &= BracketMultiWords(lstFields.SelectedItem) & ","
  End Sub

  Private Sub btnWhere_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btnWhere.Click
    ' Przeznaczenie: Dodanie predykatu WHERE do zapytania. 
    '      Dodatkowo musimy usunąć z listy pól ostatni przecinek.

    Dim FromFound As Integer
    Dim temp As String

    temp = txtQuery.Text
    FromFound = temp.LastIndexOf(" FROM ")  
    ' Sprawdzamy, czy jest już słowo FROM 
    If FromFound = -1 Then           ' Jeśli nie...
      temp = temp.Remove(temp.Length - 1, 1)  
      ' ...usuwamy ostatni przecinek
      ' oraz dodajemy słowo FROM i nazwę tabeli
      temp &= " FROM " & BracketMultiWords(lstTables.SelectedItem)
      txtQuery.Text = temp
    End If
    txtQuery.Text &= " WHERE"   ' teraz dodajemy WHERE
    txtQuery.Focus()   ' Uaktywniamy pole, aby użytkownik mógł dopisać 
                       ' resztę
    txtQuery.AppendText(" ")   
    ' Kolejność operacji chroni 
    ' przed podświetleniem zapytania
  End Sub
