strSQL = "select kgl_nr '" & strMitglied & "', kgl_anrede as" & _
              "Anrede, kgl_vorname as Vorname, kgl_name as Name, kgl_strasse as" & _
              "Strasse, kgl_plz as PLZ, kgl_ort as Ort,kgl_gebd as Geburtsdatum" & _
              "from Adressen"    
            objDtAuswahl.Clear()
 
            objDa = New MySqlDataAdapter(strSQL, oMySqlConn)
            objDa.Fill(objDtAuswahl)
            dtgAuswahl.DataSource = objDtAuswahl.DefaultView
 
            dtgAuswahl.Columns(0).Width = 80
            dtgAuswahl.Columns(1).Width = 60
            dtgAuswahl.Columns(5).Width = 50
            dtgAuswahl.Columns(6).Width = 100
            dtgAuswahl.Columns(7).Width = 80
 
            dtgAuswahl.Refresh()