Sub tabelle(ByVal SC As SqlCommand)
        Me.Enabled = False
        Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor
        adapter = New SqlDataAdapter()
        table = New DataTable
        'table.Locale = System.Globalization.CultureInfo.InvariantCulture
        adapter.SelectCommand = SC
        adapter.SelectCommand.CommandTimeout = 9000
        adapter.Fill(table)
        DataGridView1.DataSource = table
        Label1.Visible = False
        Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default
        Me.Enabled = True
        Me.Text = "Concordia   -   Anzahl gefundener Datensätze : " + _
          DataGridView1.RowCount.ToString
 
    End Sub
 
 
 
Dim cmd As New SqlClient.SqlCommand("SELECT ZEICHEN,COUNT(vorname) AS" & _
  "Vorname,COUNT(Name) AS Nachname, COUNT(Name_Zusatz) AS Zusatz, COUNT(Ort) AS" & _
  "Ort, COUNT(Ort_Zusatz) AS O_Zusatz, COUNT(STRASSE) AS Strasse FROM" & _
  "SONDERZEICHEN AS S LEFT JOIN test_vorname AS A ON A.vorname LIKE '%[' +" & _
  "Zeichen + ']%' GROUP BY ZEICHEN ", cn)
tabelle(cmd)