Private Sub DB_read_Spieler()
        'Meine DB Spaltenüberschriften spl_name, spl_vname, spl_ort
        cmd.CommandText = "select spl_name, spl_vname, spl_ort from tbl_spieler"
        myDataTable.Clear()
        'Try
        con.Open()
        reader = cmd.ExecuteReader()
        reader.Read()
        myDataTable.Load(reader)
        MsgBox(myDataTable.Rows.Count)
        grd_player.DataSource = myDataTable
        grd_player.Refresh()
        grd_player.Show()
        cmd.CommandText = ""
        con.Close()
        'Catch
        '    Call msg_define("DB_read_Spieler")
        '    MsgBox(cNoDB_Path, MsgBoxStyle.Critical)
        'End Try
    End Sub